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

                                    60

      2. Пример определения класса TMyApp:
TMyApp=object(TApplication)
Constructor Init;
Procedure HandleEvent(Var Event : TEvent);Virtual;
Procedure InitStatusLine; Virtual;
Procedure InitMenuBar; Virtual;
Procedure LoadFile; Virtual;
Procedure SaveFile; Virtual;
Procedure NewObject; Virtual;
Procedure FindObject;
Procedure DeleteObject;
Procedure ShowObject;
Procedure ChangeObject;
Procedure ChangeDir;
end;

      3. Конструктор TMyApp.Init должен содержать оператор, в котором
глобальной переменной, указывающей на начало списка, присваивается
nil.
      4. Диалоговое окно создается с помощью специального объекта
TNewDialog=object (TDialog), в конструкторе которого определяются эле-
менты управления диалоговым окном.
      5. Чтобы получить информацию из диалогового окна, надо опреде-
лить метод NewObject, в котором это окно сделать модальным, прочитать
из него информацию с помощью стандартного метода GetData и записать
эту информацию в поля объекта, используя конструктор этого объекта.
Например:
pwd:=New(PNewDialog,Init(R,'Новый сотрудник'));
if DeskTop^.ExecView(pw)<> cmCancel then
begin
pwd^.GetData(rec);
Dispose(pwd,Done);
val(rec.age,age,ok);
if ok<>0 then exit;
name:=rec.name;
............
employee:=New(PEmployee,Init(name,sex,age,post,work));
InsertEmpl(employee); {вставляет объект в список}
end;