Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 62 стр.

                                   63
if employee <>nil then
begin
r.assign(10,3,54,22);
pwd:=new(PNewDialog,init(r,'Сотрудник'));
{Формируется запись data, в которую записываются поля объекта employee
^. Затем информация из data передается в строки TInputLine окна pwd^, вы-
зовом метода SetData}
 mdw^.SetData(data);
if DeskTop^.ExecView(pwd)<>cmCancel then begin{Создается объект и
включается в список}
end
else          MessageBox('Объекта         с        таким          именем
нет',nil,mfInformation+mfOkButton);
End;

      Можно поступить и по-другому. Определить в классе TEmployee ме-
тод Set, который устанавливает поля объекта, используя данные, передан-
ные ему через параметры. Тогда достаточно просто установить новые зна-
чения полей объекта, считанные с диалогового окна методом GetData, не
удаляя старый объект и создавая новый.
      11. Для удаления объекта из списка можно написать процедуру De-
leteObject(p:PEmployee), в которую передается указатель на удаляемый
объект. В процедуре осуществляется поиск объекта в списке и, если он
найден, его удаление.


      Содержание отчета.
      1. Титульный лист.
      2. Графическая схема иерархии классов.
      3. Графическая схема иерархии объектов.
      4. Определение всех классов и глобальных имен (констант, типов,
переменных, процедур и функций).
      5. Определение методов TmyApp (с комментариями), используемых
в программе.
      6. Определение конструктора диалогового окна с комментариями.
      7. Определение обработчика событий для TMyApp с комментариями.