Реферат Програма "Телефонний довідник"

dex: Integer;// порядковыйномеротображаемогоабонента: Integer;// відображається чи ні абонент

end;: TForm1;: real;

TelephoneBook, curAbonent: LinkAbonent;// посилання на початок списку

абонентів і на поточний абонент: Saved = YesSaved;// збережена чи ні тел. книга: AnsiString;// ім'я файлу телефонної книги, editTel: LinkTel;// список телефонів поточного абонента і посилання

на редагований телефон, telAction: Action;// події: додавати або видаляти абонента;

додавати або видаляти телефонCreateTelephoneBook (): Integer;

procedure str: string): boolean; PrintForm, ComCtrls;

{$ R *. dfm} (SurName, Name, SecondName, Adress, Mail: AnsiString; Tel: Lin); P to Length (cur) doi <= Length (new) then (cur [i] = new [i]) then; cur [i]

Equal thennext = Less then (curAbonent.nextAbonent = nil) thennext = Less then (curAbonent.nextAbonent = nil) then (curAbonent.nextAbonent = nil) then;: = curAbonent.nextAbonent; (next = Less) then (curAbonent.nextAbonent = nil) // Добавленіетелефона: LinkTel; Telephone ='' then; TelList = nil p align="justify">// загрузкаилиимпорттелефоннойкниги: TextFile;: AnsiString;: LinkAbonent;: Integer; (fileBook, fileName); (fileBook); not Eof (fileBook) do (fileBook, buffer); buffer = '$' then (fileBook, buffer);: = StrToInt (buffer [Length (buffer)]); (buffer, Length (buffer) -1,2); (typeT = Integer (Mobile)) P then (fileBook, '%'); curTel <> nil // Звільнення пам'яті телефонної книги: LinkAbonent;: LinkTel;: = TelephoneBook.nextAbonent; curAb <> nil docurAb.Tel <> nil P nil do (abonent.show = 1) then.Items.Add (abonent.SurName + '' + abonent.Name + '

// отображениеинформацииобабоненте: LinkTel; SG1 P [1]. Clear; (curTel <> nil) docolTel> 0 then.RowCount: = SG.RowCount +1;. Cells [0, SG.RowCount-1]: = curTel.telephone; (curTel.typeTel = Mobile ) then.Cells [1, SG.RowCount-1]: = 'Мобільний'. Cells // Жівойпоіск: LinkAbonent;: AnsiString;, show: Integer;: LinkTel; findStr ='' thenelse: = TelephoneBook.nextAbonent; curAb <> nil dotypeS = SurName then: = curAb.SurName: = curAb.Tel; tel <> nil do.show: = 0;: = tel.telephone; Length (findTemp)> = Length (findStr) theni: = 1 to Length (findStr) do (findStr [i] <> findTemp [i] ) then.show: = 0;;;. show: = 1;; curAb.show = 0 to Length (findStr) dofindStr [i] <> findTemp [i] then: = 0;;; show = 0 then.show: = 0.show: = 1;;: = curAb.nextAbonent;; end;; CreateTelephoneBook (): Integer;// созданіеновойкнігі: Integer; save = NoSaved then: = Application.MessageBox ('Файлнесохранен.

Сохранітьізмененія? &...