Пишем программу (в Delphi) для создания книг FB2 - страница 8
>
>Caption = '-'
>Font.Charset = DEFAULT_CHARSET
>Font.Color = clWindowText
>Font.Height = –24
>Font.Name = 'MS Sans Serif'
>Font.Style = []
>ParentFont = False
>TabOrder = 0
>OnClick = Button1Click
>end
>object Button2: TButton
>Left = 72
>Top = 24
>Width = 33
>Height = 25
>Caption = 'H1'
>TabOrder = 1
>OnClick = Button2Click
>end
>object Button5: TButton
>Left = 128
>Top = 24
>Width = 25
>Height = 25
>Caption = '+'
>Font.Charset = DEFAULT_CHARSET
>Font.Color = clWindowText
>Font.Height = –19
>Font.Name = 'MS Sans Serif'
>Font.Style = []
>ParentFont = False
>TabOrder = 2
>OnClick = Button5Click
>end
>end
>end
>object ListBox1: TListBox
>Left = 265
>Top = 41
>Width = 441
>Height = 348
>Align = alClient
>Font.Charset = RUSSIAN_CHARSET
>Font.Color = clWindowText
>Font.Height = –11
>Font.Name = 'Courier'
>Font.Style = []
>ItemHeight = 13
>ParentFont = False
>TabOrder = 2
>OnClick = ListBox1Click
>OnDblClick = ListBox1DblClick
>end
>end
>object TabSheet4: TTabSheet
>Caption = 'End Notes'
>ImageIndex = 4
>object Panel4: TPanel
>Left = 0
>Top = 0
>Width = 706
>Height = 41
>Align = alTop
>TabOrder = 0
>object Button3: TButton
>Left = 8
>Top = 8
>Width = 105
>Height = 25
>Caption = 'Load End Notes'
>TabOrder = 0
>OnClick = Button3Click
>end
>end
>object EndNotesList: TListBox
>Left = 0
>Top = 41
>Width = 706
>Height = 348
>Align = alClient
>ItemHeight = 13
>TabOrder = 1
>end
>end
>end
>object MainMenu1: TMainMenu
>Left = 208
>Top = 32
>object File1: TMenuItem
>Caption = 'File'
>object Open1: TMenuItem
>Caption = 'Open'
>OnClick = Open1Click
>end
>object SaveasFB21: TMenuItem
>Caption = 'Save as FB2'
>OnClick = SaveasFB21Click
>end
>end
>end
>object OpenDialog1: TOpenDialog
>Filter = 'Text|*.txt|Any file|*.*'
>FilterIndex = 2
>Left = 240
>Top = 32
>end
>object SaveDialog1: TSaveDialog
>Filter = 'FB2 |*.fb2'
>Left = 272
>Top = 32
>end
>end
>// конец кода
Код файла Unit1.pas соответствующего Form1
>// начало кода
>unit Unit1;
>interface
>uses
>Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>Dialogs, StdCtrls, ExtCtrls, Menus, CheckLst, ComCtrls,
>genres, UmFB2, dm, authors;
>type
>TForm1 = class(TForm)
>MainMenu1: TMainMenu;
>File1: TMenuItem;
>Open1: TMenuItem;
>SaveasFB21: TMenuItem;
>PageControl1: TPageControl;
>TabSheet1: TTabSheet;
>Annotation: TMemo;
>TabSheet3: TTabSheet;
>Lurl: TLabel;
>LID: TLabel;
>Lversion: TLabel;
>url: TEdit;
>id: TEdit;
>version: TEdit;
>TabSheet6: TTabSheet;
>LISBN: TLabel;
>LBook_name: TLabel;
>Lpublisher: TLabel;
>Lcity: TLabel;
>Lyear: TLabel;
>isbn: TEdit;
>Book_name: TEdit;
>publisher: TEdit;
>year: TEdit;
>city: TEdit;
>TabSheet2: TTabSheet;
>Panel1: TPanel;
>Panel2: TPanel;
>Button12: TButton;
>OpenDialog1: TOpenDialog;
>SaveDialog1: TSaveDialog;
>ListBox1: TListBox;
>TabSheet4: TTabSheet;
>Panel4: TPanel;
>Button3: TButton;
>EndNotesList: TListBox;
>RG: TRadioGroup;
>Panel3: TPanel;
>Lbook_title: TLabel;
>LProject: TLabel;
>LAnnotation: TLabel;
>Lsequence: TLabel;
>LLang: TLabel;
>Lsrc_lang: TLabel;
>LTome: TLabel;
>book_title: TEdit;
>FB2_file: TEdit;
>Au: TGroupBox;
>ListBox3: TListBox;
>Button10: TButton;
>GroupBox1: TGroupBox;
>GenresBox: TListBox;
>Button4: TButton;
>GroupBox3: TGroupBox;
>ListBox2: TListBox;
>Button7: TButton;
>sequence: TEdit;
>tome: TEdit;
>Lang: TComboBox;
>SLang: TComboBox;
>Button9: TButton;
>GroupBox2: TGroupBox;
>Button1: TButton;
>Button2: TButton;
>Button5: TButton;
>procedure Open1Click(Sender: TObject);
>procedure SaveasFB21Click(Sender: TObject);
>procedure Button12Click(Sender: TObject);
>procedure Button4Click(Sender: TObject);
>procedure Button10Click(Sender: TObject);
>procedure Button7Click(Sender: TObject);
>procedure FormCreate(Sender: TObject);
>procedure Button3Click(Sender: TObject);
>procedure Button9Click(Sender: TObject);
>procedure ListBox1DblClick(Sender: TObject);
>procedure ListBox1Click(Sender: TObject);
>procedure Button2Click(Sender: TObject);
>procedure Button5Click(Sender: TObject);
>procedure Button1Click(Sender: TObject);
>private
>{ Private declarations }
>public
>{ Public declarations }
>end;
>var
>Form1: TForm1;
>Path: ANSIstring;
>implementation
>uses EditStr;
>{$R *.dfm}
>procedure LoadTXT(FName: string);
>var
>L: TStringList;
>i, j: integer;
>s, ss: string;
>begin
>L:= TStringList.Create;
>L.LoadFromFile(fname);
>for i:= 0 to L.Count – 1 do
>begin
>s:= ''; ss:= L[i];
>for j:= 1 to length(Ss) do
>begin // просматриваем строку
>case ss[j] of
>'<': S:= S + '<'; // знак < вызывает сбой в читалке