Пишем программу (в 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', 'Астрономия и Космос'),