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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

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

Рубрика: 

81
Procedure HandleEvent(Var Event:TEvent);virtual;
Procedure Show;
Procedure ShowEmployee;
Procedure NewEmployee;
……….
Procedure LoadOutStream;
Procedure SaveInStream;
end;
6. Конструктор Init должен содержать операторы, в которых выпол-
няется регистрация типов объектов: Например:
Constructor TMyApp.Init;
Begin
{регистрация стандартных типов объектов}
RegisterApp;
RegisterObjects;
RegisterMenus;
RegisterViews;
RegisterStdDlg;
{регистрация пользовательского типа}
RegisterType(REmployee);
inherited Init;
{создание коллекции}
MyCollection:=New(PCollection,Init(50,10));
End;
7. Чтобы загрузить объекты из потока используется процедура
LoadOutStream, в которой с помощью стандартного окна диалога выбира-
ется нужный файл и
инициируется поток:
MyStream:=New(PBufStream,Init(s,stOpenRead,1024));{открываем по-
ток для чтения}
if MyStream^.Status=stOk then{если нет ошибки}
begin
LoadCollection;
Dispose(MyStream,Done)
end;
LoadCollection − это вспомогательная процедура, которая получает
очередной объект из потока и записывает его в коллекцию. В ней выпол-
няются следующие действия:
MyCollection^.FreeAll;{освобождаются элементы коллекции}
MyStream^.Seek(0); {встаем на начало потока}
while MyStream^.status=0 do 
                                  81

         Procedure HandleEvent(Var Event:TEvent);virtual;
         Procedure Show;
         Procedure ShowEmployee;
         Procedure NewEmployee;
         ……….
      Procedure LoadOutStream;
         Procedure SaveInStream;
         end;
      6. Конструктор Init должен содержать операторы, в которых выпол-
няется регистрация типов объектов: Например:
      Constructor TMyApp.Init;
      Begin
      {регистрация стандартных типов объектов}
      RegisterApp;
      RegisterObjects;
      RegisterMenus;
      RegisterViews;
      RegisterStdDlg;
      {регистрация пользовательского типа}
      RegisterType(REmployee);
      inherited Init;
      {создание коллекции}
      MyCollection:=New(PCollection,Init(50,10));
      End;
      7. Чтобы загрузить объекты из потока используется процедура
LoadOutStream, в которой с помощью стандартного окна диалога выбира-
ется нужный файл и инициируется поток:
      MyStream:=New(PBufStream,Init(s,stOpenRead,1024));{открываем по-
ток для чтения}
      if MyStream^.Status=stOk then{если нет ошибки}
      begin
      LoadCollection;
      Dispose(MyStream,Done)
      end;

      LoadCollection − это вспомогательная процедура, которая получает
очередной объект из потока и записывает его в коллекцию. В ней выпол-
няются следующие действия:
MyCollection^.FreeAll;{освобождаются элементы коллекции}
MyStream^.Seek(0); {встаем на начало потока}
while MyStream^.status=0 do

Страницы