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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

71
2. Пример определения класса TMyApp:
TMyApp =object(TApplication)
Constructor Init;
Procedure InitStatusLine;Virtual;
Procedure InitMenuBar;Virtual;
Procedure HandleEvent(Var Event:TEvent);Virtual;
Procedure Show;
Procedure PutEmployee;virtual;
Procedure ChangeDir;
Procedure Load;
Procedure Save;
Procedure LoadCollection;
Procedure SaveCollection;
Procedure Find;
end;
3. Коллекция создается:
а) при инициализации приложения, например:
Constructor TMyApp.Init;
begin
inherited Init;
MyCollection := new( PCollection , Init(50 , 10) );
end;
б) при загрузке данных из файла. При этом старая коллекция предва-
рительно очищается MyCollection . FreeAll .
4. Можно рекомендовать следующую схему добавления объектов в
коллекцию (на примере объекта TЕmployee):
а) метод TMyApp.HandleEvent обрабатывает команду cmPutEmployee,
вызывая
метод TMyApp.PutEmployee;
б) метод TMyApp.PutEmployee создает диалоговое окно (объект
TMyDialog) для ввода необходимой информации. В окно помещается две
кнопки:
Insert(New(PButton,Init(r,'~Д~обавить',cmAppendEmployee,bfDefault)));
Insert(New(PButton,Init(r,'~З~акончить',cmCancel,bfNormal)));
в) метод TMyDialog.HandleEvent обрабатывает команду cmAppen-
dEmployee, создавая объект класса TEmployee и добавляя его в коллекцию:
Procedure TMyDialog.HandleEvent(Var Event:TEvent);
….
Begin
inherited HandleEvent(Event);
case EventCommand of 
                                    71

     2. Пример определения класса TMyApp:
        TMyApp =object(TApplication)
          Constructor Init;
          Procedure InitStatusLine;Virtual;
          Procedure InitMenuBar;Virtual;
          Procedure HandleEvent(Var Event:TEvent);Virtual;
          Procedure Show;
          Procedure PutEmployee;virtual;
          Procedure ChangeDir;
          Procedure Load;
          Procedure Save;
          Procedure LoadCollection;
          Procedure SaveCollection;
          Procedure Find;
        end;

       3. Коллекция создается:
       а) при инициализации приложения, например:
       Constructor TMyApp.Init;
       begin
       inherited Init;
       MyCollection := new( PCollection , Init(50 , 10) );
       end;
       б) при загрузке данных из файла. При этом старая коллекция предва-
рительно очищается MyCollection . FreeAll .
       4. Можно рекомендовать следующую схему добавления объектов в
коллекцию (на примере объекта TЕmployee):
       а) метод TMyApp.HandleEvent обрабатывает команду cmPutEmployee,
вызывая метод TMyApp.PutEmployee;
       б) метод TMyApp.PutEmployee создает диалоговое окно (объект
TMyDialog) для ввода необходимой информации. В окно помещается две
кнопки:
       Insert(New(PButton,Init(r,'~Д~обавить',cmAppendEmployee,bfDefault)));
       Insert(New(PButton,Init(r,'~З~акончить',cmCancel,bfNormal)));
       в) метод TMyDialog.HandleEvent обрабатывает команду cmAppen-
dEmployee, создавая объект класса TEmployee и добавляя его в коллекцию:
Procedure TMyDialog.HandleEvent(Var Event:TEvent);
….
Begin
inherited HandleEvent(Event);
case EventCommand of

Страницы