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

стр.

>

>nickname.Text:= '';

>mail.Text:= '';

>end;

>procedure TForm2.Button2Click(Sender: TObject);

>var

>Person: TPerson;

>begin // Add

>Person:= TPerson.Create;

>with Person do

>begin

>fName:= first_name.Text;

>mName:= mid_name.Text;

>lName:= last_name.Text;

>nick:= nickname.Text;

>email:= mail.Text;

>ListBox1.Items.AddObject(lName+' '+fName,Person);

>end;

>end;

>procedure TForm2.ListBox1Click(Sender: TObject);

>var

>Person: TPerson;

>begin

>with ListBox1 do

>Person:= TPerson(Items.Objects[ItemIndex]);

>with Person do

>begin

>first_name.Text:= fName;

>mid_name.Text:= mName;

>last_name.Text:= lName;

>nickname.Text:= nick;

>mail.Text:= email;

>end;

>end;

>procedure TForm2.Button3Click(Sender: TObject);

>var

>Person: TPerson;

>begin // Edit

>with ListBox1 do

>begin

>if ItemIndex = – 1 then exit;

>Person:= TPerson(Items.Objects[ItemIndex]);

>end;

>with Person do

>begin

>fName:= first_name.Text;

>mName:= mid_name.Text;

>lName:= last_name.Text;

>nick:= nickname.Text;

>email:= mail.Text;

>with ListBox1 do

>Items[ItemIndex]:=lName+' '+fName;

>end;

>end;

>procedure TForm2.Button4Click(Sender: TObject);

>var

>Person: TPerson;

>begin // Delete

>with ListBox1 do

>begin

>if ItemIndex = – 1 then exit;

>Person:= TPerson(Items.Objects[ItemIndex]);

>Person.Free;

>Items.Delete(ItemIndex);

>end;

>end;

>end.

>// конец кода

dm.pas

Это просто текстовый файл, без формы.

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

>unit dm;

>interface

>type

>gr = array[1..2] of string;

>const

>maxg = 151;

>gg: array[0..maxg] of gr = (// Список жанров

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

>('banking', 'Банковское дело'),

>('accounting', 'Бухучет, налогообложение, аудит'),

>('global_economy', 'Внешнеэкономическая деятельность'),

>('paper_work', 'Делопроизводство'),

>('org_behavior', 'Корпоративная культура'),

>('personal_finance', 'Личные финансы'),

>('small_business', 'Малый бизнес'),

>('marketing', 'Маркетинг, PR, реклама'),

>('real_estate', 'Недвижимость'),

>('popular_business', 'О бизнесе популярно'),

>('industries', 'Отраслевые издания'),

>('job_hunting', 'Поиск работы, карьера'),

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

>('management', 'Управление, подбор персонала'),

>('stock', 'Ценные бумаги, инвестиции'),

>('economics', 'Экономика'),

>// Детективы и Триллеры

>('det_action', 'Боевик'),

>('detective', 'Детектив'),

>('det_irony', 'Иронический детектив'),

>('det_history', 'Исторический детектив'),

>('det_classic', 'Классический детектив'),

>('det_crime', 'Криминальный детектив'),

>('det_hard', 'Крутой детектив'),

>('det_maniac', 'Маньяки'),

>('det_political', 'Политический детектив'),

>('det_police', 'Полицейский детектив'),

>('thriller', 'Триллер'),

>('det_espionage', 'Шпионский детектив'),

>// Детское

>('children', 'Детская литература'),

>('child_education', 'Детская образовательная литература'),

>('child_prose', 'Детская проза'),

>('child_sf', 'Детская фантастика'),

>('child_det', 'Детские остросюжетные'),

>('child_adv', 'Детские приключения'),

>('child_verse', 'Детские стихи'),

>('child_tale', 'Сказка'),

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

>('nonf_biography', 'Биографии и Мемуары'),

>('nonfiction', 'Документальная литература'),

>('design', 'Искусство и Дизайн'),

>('nonf_criticism', 'Критика'),

>('music', 'Музыка'),

>('nonf_publicism', 'Публицистика'),

>//Домоводство

>('home_pets', 'Домашние животные'),

>('home', 'Домоводство'),

>('home_health', 'Здоровье'),

>('home_cooking', 'Кулинария'),

>('home_entertain', 'Развлечения'),

>('home_garden', 'Сад и огород'),

>('home_diy', 'Сделай сам'),

>('home_sport', 'Спорт'),

>('home_crafts', 'Хобби и ремесла'),

>('home_sex', 'Эротика, Секс'),

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

>('comp_db', 'Базы данных'),

>('comp_www', 'Интернет'),

>('comp_hard', 'Компьютерное «железо» '),

>('computers', 'Околокомпьютерная литература'),

>('comp_osnet', 'ОС и Сети'),

>('comp_programming', 'Программирование'),

>('comp_soft', 'Программы'),

>('comp_dsp', 'Цифровая обработка сигналов'),

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

>('love_history', 'Исторические любовные романы'),

>('love_short', 'Короткие любовные романы'),

>('love_sf', 'Любовно-фантастические романы'),

>('love', 'О любви'),

>('love_detective', 'Остросюжетные любовные романы'),

>('love_contemporary', 'Современные любовные романы'),

>('love_erotica', 'Эротика'),

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

>('sci_medicine_alternative', 'Альтернативная медицина'),

>('sci_cosmos', 'Астрономия и Космос'),