>// начало кода
>program my_FB2;
>uses
>Forms,
>Unit1 in 'Unit1.pas' {Form1},
>genres in 'genres.pas' {Form3},
>authors in 'authors.pas' {Form2},
>EditStr in 'EditStr.pas' {EditSt};
>{$R *.res}
>begin
>Application.Initialize;
>Application.CreateForm(TForm1, Form1);
>Application.CreateForm(TForm3, Form3);
>Application.CreateForm(TForm2, Form2);
>Application.CreateForm(TEditSt, EditSt);
>Application.Run;
>end.
>// конец кода
Попробовал выполнить собственные инструкции, оказалось забыл еще один файл. А так ничего, «поругался» Дельфи на отсутствие ресурсного файла, да ничего он сам его сделает. А забытый, вот он:
>// начало кода
>unit UmFB2;
>interface
>uses
>Classes, SysUtils, Dialogs;
>Type
>TmyStyle = (
>Norm, Epig, Auth, Sub, Poem, Citat, None,
>ZZ, // пустой тип
>H1, H2, H3, H4, H5 );
>var
>SytleStack : TList;
>// StyleList : TList;
>OutList : TStringList;
>EndNotes_count: integer;
>// Path : string;
>function GetStyle(S:string; var m:TmyStyle):string;
>function GetStr(S:string):string;
>procedure PrintString(St, E : string);
>implementation
>procedure PrintString(St, E : string);
>begin
>if E <> '' then
>OutList.Add(' <'+St+'>'+E +'');
>end;
>function GetStyle(S:string; var m:TmyStyle):string;
>var
>n : byte;
>ss : string;
>begin
>n := pos('|', S);
>ss := copy(s,1,n-1); // стиль
>case ss[length(ss)] of
>'N' : m := Norm;
>'E' : m := Epig;
>'A' : m := Auth;
>'1' : m := H1;
>'2' : m := H2;
>'3' : m := H3;
>'4' : m := H4;
>'5' : m := H5;
>'S' : m := Sub;
>'P' : m := Poem;
>'C' : m := Citat;
>'-' : m := None;
>end;// case
>delete(s,1,n+1); // текст
>result := S;
>end;
>function GetStr(S:string):string;
>var
>n : byte;
>begin
>n := pos('|', S);
>delete(s,1,n+1); // текст
>result := S;
>end;
>BEGIN
>SytleStack := TList.create;
>OutList := TStringList.Create;
>// StyleList := TList.Create;
>END.
>// конец кода
Ну вот и весь исходник.
Успехов.
w_cat.