AsString;> Text = Table1pol-> AsString; _avto-> Text = Table1kod_avto-> AsString;> Text = Table1model-> AsString; _nom-> Text = Table1ser_nom-> AsString; _str-> Text =
}
{_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 =
}
{s; AnsiString s1 = ","; = ""; (Table1god_vip-> AsString! = Egod_vip_d-> Text) + = "рік випуску ; (Table1god_reg-> AsString! = Egod_reg-> Text)
{(s! = "") s + = s1; + = "рік реєстрації";
} (Table1tex_pas-> AsString! = Etex_pas-> Text)
{(s! = "") s + = s1; + = "Технічний паспорт";
} (Table1svet-> AsString! = Esvet-> Text)
{(s! = "") s + = s1; + = "колір";
} (Table1fam-> AsString! = Efam-> Text)
{(s! = "") s + = s1; + = "прізвище";
} (Table1Im-> AsString! = EIm-> Text)
{(s! = "") s + = s1; + = "ім'я";
} (Table1otc-> AsString! = Eotc-> Text)
{(s! = "") s + = s1; + = "батькові";
} (Table1adres-> AsString! = Eadres-> Text)
{(s! = "") s + = s1; + = "Адреса"; (Table1pol-> AsString! = Epol-> Text)
{(s! = "") s + = s1; + = "стать"; (Table1kod_avto-> AsString! = Ekod_avto-> Text)
{(s! = "") s + = s1; + = "код авто"; (Table1ser-_nom> AsString! = Eser_nom-> Text)
{(s! = "") s + = s1; + = "серійний номер"; (Table1nom_str-> AsString! = Enom_str-> Text)
{(s! = "") s + = s1; + = "номер страховки"; (s! = "")
{(Application-> MessageBox (
("Дійсно хочете змінити запис?" + s + "?"). c_str (),
"Підтвердіть зміни",
MB_YESNO + MB_ICONQUESTION) == IDYES)
{_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;
...
