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

                                   80

      Методические указания.
      1. В качестве типов объектов использовать пользовательские классы
лабораторной работы № 6 в соответствии со своим вариантом. Тип исполь-
зуемой в работе коллекции (TCollection или TSortedCollection) выбирается
в зависимости от варианта задания: нечетный вариант − TCollection,
четный − TsortedCollection (обратите внимание − тип коллекции
отличается от типа, который был у вас в лабораторной работе № 7.
      2. Во избежание проблем при сохранении и загрузки объектов клас-
сы объектов пользователя обязательно должны наследоваться от абстракт-
ного класса TObject.
      3. В каждом классе, объекты которого помещаются в поток или счи-
тываются из потока, должны быть определены методы Store и Load, к ко-
торым обращаются методы Put и Get потока. Например:
         Constructor TEmployee.Load(Var S:TStream);
         Begin
         s.read(name,sizeof(name));
         s.read(post,sizeof(post));
         s.read(salary,sizeof(salary));
         End;

  Procedure TEmployee.Store(Var S:TStream);
        Begin
        s.write(name,sizeof(name));
        s.write(post,sizeof(post));
        s.write(salary,sizeof(salary));
        End;

      4. Регистрация объекта (например “Сотрудник”) может быть выпол-
нена следующим образом:
Const
REmployee:TStreamRec=(ObjType:101;
VMTLink:Ofs(Typeof(TEmployee)^);
Load:@TEmployee.Load;
Store:@TEmployee.Store);

     5. Пример определения класса TMyApp:
        TMyApp =object(TApplication)
        Constructor Init;
        Procedure InitStatusLine;virtual;
        Procedure InitMenuBar;virtual;