#39;,' Повідомлення ', MB_YESNOCANCEL +
nil)): = curAbonent.nextAbonent; (curAbonent, StringGrid1, StringGrid2);; TForm1.Button1Click (Sender: TObject);
// сохранениеизмененийданныхабонентаabAction = Add thenStringGrid1 do (Cells [1,0] <>'') or (Cells [1,1] <>'') or (Cells [1, 2] <>'') then (Cells [1,0], Cells [1,1], Cells [1,2], Cells [1,3], Cells
[1,4], telList). MessageBox ('Заповніть хоча б одне з полів:
Прізвище, Ім'я або
По батькові! ',' Недостаточноданних ', MB_OK + MB _ICONINFORMATION); p align="justify"> exit;; StringGrid1 do.SurName: = Cells [1,0];. Name: = Cells [1,1];. SecondName: = Cells [1,2];. Adress: = Cells [1,3];. Mail: = Cells TObject); TObject);// додавання або
збереження змін телефонів абонента.Visible: = False;
'') then (ComboBox1.ItemIndex = 0) then (telList, MaskEdit1.Text, Mobile) (telList, MaskEdit2.Text, Home);
// begin (ComboBox1.ItemIndex = 0) TObject);
StringGrid2.Row) and (editTel <> nil)) do: = editTel.nextTelephone; (index);; editTel.typeTel = Home TObject; var Key: Word;
// жівойпоіск, отображениесписканайденных: msec. ';; TForm1.RadioGroup1Click (Sender: TObject); (); RadioGroup1.ItemIndex = 1 then.Visible: = false;. Visible: = true;. Visible: = false;. Visible: = true;;; TForm1 . BitBtn1Click (Sender: TObject);
ня ', MB_OK + MB_ICONINFORMATION);;; Form2.RichEdit1 - '+ CurAbonent.SurName);. Add (' Ім'я - '+ curAbonent.Name);. Add (' По батькові - '+ curAbonent.SecondName);. Add (' Адреса: '+ curAbonent....
