Юрий Карпов - Пишем программу для создания книг FB2.

('sci_biology', 'Биология'),

('sci_biophys', 'Биофизика'),

('sci_biochem', 'Биохимия'),

('sci_geo', 'Геология и география'),

('sci_state', 'Государство и право'),

('sci_business', 'Деловая литература'),

('sci_history', 'История'),

('sci_culture', 'Культурология'),

('sci_philology', 'Литературоведение'),

('sci_math', 'Математика'),

('sci_medicine', 'Медицина'),

('science', 'Научная литература'),

('sci_orgchem', 'Органическая химия'),

('sci_politics', 'Политика'),

('sci_psychology', 'Психология'),

('sci_religion', 'Религиоведение'),

('sci_tech', 'Технические науки'),

('sci_phys', 'Физика'),

('sci_physchem', 'Физическая химия'),

('sci_philosophy', 'Философия'),

('sci_chem', 'Химия'),

('sci_economy', 'Экономика'),

('sci_juris', 'Юриспруденция'),

('sci_linguistic', 'Языкознание'),

// Периодика

('periodic', 'Журналы'),

//Поэзия, Драматургия

('dramaturgy', 'Драматургия'),

('poetry', 'Поэзия'),

// Приключения

('adv_western', 'Вестерн'),

('adv_history', 'Исторические приключения'),

('adv_maritime', 'Морские приключения'),

('adventure', 'Приключения'),

('adv_indian', 'Приключения про индейцев'),

('adv_animal', 'Природа и животные'),

('adv_geo', 'Путешествия и география'),

// Проза

('prose_history', 'Историческая проза'),

('prose_classic', 'Классическая проза'),

('prose_counter', 'Контркультура'),

('prose_military', 'О войне'),

('prose', 'Проза'),

('prose_rus_classic', 'Русская классическая проза'),

('prose_su_classics', 'Советская классическая проза'),

('prose_contemporary', 'Современная проза'),

// Прочее

('other', 'Неотсортированное'),

('notes', 'Партитуры'),

//Религия и духовность

('religion_budda', 'Буддизм'),

('religion', 'Религиозная литература'),

('religion_rel', 'Религия'),

('religion_self', 'Самосовершенствование'),

('religion_esoterics', 'Эзотерика'),

//Справочная литература

('geo_guides', 'Путеводители'),

('ref_guide', 'Руководства'),

('ref_dict', 'Словари'),

('reference', 'Справочная литература'),

('ref_ref', 'Справочники'),

('ref_encyc', 'Энциклопедии'),

//Старинное

('antique_ant', 'Античная литература'),

('antique_east', 'Древневосточная литература'),

('antique_russian', 'Древнерусская литература'),

('antique_european', 'Европейская старинная литература'),

('antique_myths', 'Мифы. Легенды. Эпос'),

('antique', 'Старинная литература'),

//Техника

('sci_metal', 'Металлургия'),

('sci_radio', 'Радиоэлектроника'),

('sci_build', 'Строительство и сопромат'),

('sci_transport', 'Транспорт и авиация'),

//Фантастика

('sf_history', 'Альтернативная история'),

('sf_action', 'Боевая фантастика'),

('sf_heroic', 'Героическая фантастика'),

('sf_fantasy_city', 'Городское фэнтези'),

('sf_detective', 'Детективная фантастика'),

('sf_cyberpunk', 'Киберпанк'),

('sf_space', 'Космическая фантастика'),

('sf', 'Научная Фантастика'),

('sf_postapocalyptic', 'Постапокалипсис'),

('sf_social', 'Социально-психологическая фантастика'),

('sf_horror', 'Ужасы и Мистика'),

('sf_fantasy', 'Фэнтези'),

('sf_epic', 'Эпическая фантастика'),

('sf_humor', 'Юмористическая фантастика'),

//Юмор

('humor_anecdote', 'Анекдоты'),

('humor', 'Юмор'),

('humor_prose', 'Юмористическая проза'),

('humor_verse', 'Юмористические стихи')

);

maxI = 18;

LI: array[0..maxI] of integer = (

0, // Деловая литература

16, // Детективы и Триллеры

28, // Детское

36,// Документальная литература

42, //Домоводство

52, // Компьютеры и Интернет

60, // Любовные романы

67, // Наука, Образование

93, // Периодика

94, //Поэзия, Драматургия

96, // Приключения

106,// Проза

111,// Прочее

113, //Религия и духовность

118, //Справочная литература

124, //Старинное

130,//Техника

134, //Фантастика

147 //Юмор

);

maxL = 23;

Lg: array[0..maxL] of gr = (

('', ''),

('en', 'Английский'),

('be', 'Белорусский'),

('bg', 'Болгарский'),

('hu', 'Венгерский'),

('nl', 'Голландский'),

('el', 'Греческий современный (1453-)'),

('da', 'Данийский'),

('grc', 'Древнегреческий (до 1453)'),

('he', 'Иврит'),

('it', 'Итальянский'),

('de', 'Немецкий'),

('pl', 'Польский'),

('pt', 'Португальский'),

('ru', 'Русский'),

('sk', 'Словакский'),

('sl', 'Словенский'),

('tr', 'Турецкий'),

('uk', 'Украинский'),

('fi', 'Финский'),

('fr', 'Французский'),

('cs', 'Чешский'),

('et', 'Эстонский'),

('ja', 'Японский')

);

implementation

end.

// конец кода

А это - файл проекта

// начало кода

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;