Пишем программу (в Delphi) для создания книг FB2 - страница 15

>

>('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', 'Эстонский'),