}
}
}
{-> Insert ();
}
{
if (Application-> MessageBox (
"Дійсно хочете видалити запис?",
"Підтвердіть рішення",
MB_YESNO + MB_ICONEXCLAMATION) == IDYES)
Table1-> Delete ();
}
{_vip-> Text = Table1 god_vip -> AsString; _reg-> Text = Table1god_reg-> AsString; _pasp-> Text = Table1tex_pasp-> AsString;> Text = Table1svet-> AsString;> Text = Table1fam-> AsString;> Text = Table1Im-> AsString;> Text = Table1otc-> AsString;> Text = Table1adres-> AsString;> Text = Table1pol-> AsString; _avto-> Text = Table1kod_avto-> AsString;> Text = Table1model-> AsString; _nom-> Text = Table1ser_nom-> AsString; _str-> Text = Table1nom_str-> AsString;> ItemIndex = CDKodeks-> Items-> IndexOf (Table2Kodeks-> AsString);
}
{_vip-> Text = Table1 god_vip -> AsString; _reg-> Text = Table1god_reg-> AsString; _pasp-> Text = Table1tex_pasp-> AsString;> Text = Table1svet-> AsString;> Text = Table1fam-> AsString;> Text = Table1Im-> AsString;> Text = Table1otc-> AsString;> Text = Table1adres-> AsString;> Text = Table1pol-> AsString; _avto-> Text = Table1kod_avto-> AsString;> Text = Table1model-> AsString; _nom-> Text = Table1ser_nom-> AsString; _str-> Text = Table1nom_str-> AsString;> ItemIndex = CDKodeks-> Items-> IndexOf (Table2Kodeks-> AsString);
}
{s; AnsiString s1 = ","; = ""; (Table2N_r-> AsString! = EN_r-> Text) + = "№ розділу"; (Table2Naz_r -> AsString! = ENaz_r-> Text)
{(s! = "") s + = s1; + = "Назва розділу";
} (Table2N_g-> AsString! = EN_g-> Text)
{(s! = "") s + = s1; + = "№ глави";
} (Table2Naz_g-> AsString! = ENaz_g-> Text)
{(s! = "") s + = s1; + = "Назва глави";
} (Table2Naz_st-> AsString! = ENaz_st-> Text)
{(s! = "") s + = s1; + = "Назва статті";
} (Table2Soder-> AsString! = ESoder-> Text)
{(s! = "") s + = s1; + = "Зміст";} (Table2N_st-> AsString! = EN_st-> Text)
{(s! = "") s + = s1; + = "№ статті";} (Table2Kodeks-> AsString! = CDKodeks-> Text)
{(s! = "") s + = s1; + = Кодекс ";
} (s! = "")
{(Application-> MessageBox (
("Дійсно хочете змінити...
