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

                                    78
нужно сделать, это убедиться в том, что объект знает, как записать себя
в поток, когда это потребуется, то есть он имеет методы Load и Store.
       Методы Store и Load обеспечивают сохранение полей в потоке и
чтение их из потока. При наследовании классов достаточно в перекрытом
методе вызвать метод предка и записать сохранение/чтение добавленных
полей.
       Например:
TMyDilalog=object (TDialog)
 St : PString;
 Procedure Store(var s:TStream);
 Constructor Load(var s:TStream);
 …
end;

Procedure TMyDilalog.Store(var s:TStream);
Begin
inherited Store(s);
S^.WriteStr(st);
End;

Constructor TMyDilalog.Load(var s:TStream);
Begin
inherited Load (s);
S^.ReadStr(st);
End;

       Еще раз подчеркнем, если ли вы предполагаете сохранять свои объ-
екты в потоке, то должны обязательно определить для них методы Load и
Store.

     В методах Store и Load для записи/чтения полей объектов в поток (из
потока) вы должны использовать методы TStream.Write/TStream.Read,
TStream.WriteStr/TStream.ReadStr, а в некоторых случаях методы
TGroup.PutSubViewPtr/TGroup.GetSubViewPtr и TView. PutPeer-
ViewPtr/ TView.GetPeerViewPtr.


      Порядок выполнения работы.
      1. Определить классы объектов, которые будут храниться в коллек-
ции и потоке (см. п. “Методические указания”).
      2. Сформировать меню и строку статуса TV-программы. Меню
должно содержать следующие пункты: