procedure Button2Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
constructor TPerson.Create;
begin
fName:= '';
mName:= '';
lName:= '';
nick:= '';
emaiclass="underline" = '';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin // New
first_name.Text:= '';
mid_name.Text:= '';
last_name.Text:= '';
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;
emaiclass="underline" = 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;
emaiclass="underline" = 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', 'Астрономия и Космос'),
('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', 'Приключения про индейцев'),