Методы Store и Load
Метод Store осуществляет запись данных в поток. Для этого он использует метод низкого уровня Write, передавая ему в качестве параметров имя записываемого поля и длину поля в байтах. Заметим, что Вам нет нужды записывать все поля объекта: для записи наследуемых полей достаточно просто обратиться к методу Store объекта-родителя. Ваш метод Store должен записывать только те поля, которые добавляются к полям родителя. Если, например, создан объект:
type
TMyDialog = object (TDialog)
St: String;{Новое поле}
Procedure Store(var S: TStream); Virtual;
…..
end;
То метод TMyDialog.Store может иметь такую реализацию:
Procedure TMyDialog.Store(var S: TStream);
begin
TDialog.Store(S); {Сохраняем наследуемые поля}
SA.Write(St, SizeOf(St)); {Сохраняем новое поле}
end;
Аналогичным образом реализуется и конструктор Load: с помощью обращения к низкоуровневому методу TStream.Read он получает из потока только дополнительные поля и только в том порядке, как они были записаны в поток методом Store:
Constructor TMyDialog.Load(var S: TStream);
begin
TDialog.Load(S); {Получаем наследуемые поля}
S.Read(St, SizeOf(St)); {Получаем новое поле}
end;
Вы должны тщательно следить за соответствием методов Store и Load: метод Load должен прочитать ровно столько байт и строго в той последовательности, сколько байт и в какой последовательности поместил в поток метод Store. В Turbo Vision нет средств контроля За правильностью считываемых данных!
Если Ваш объект – группа, следует включить в него поля-указатели на каждый из элементов и использовать методы PutSubViewPtr и GetSubViewPtr соответственно для записи в поток и чтения из него. Например:
type
TMyDialog = object (TDialog)
St: String; {Текстовое поле}
PB: PButton; {Указатель на кнопку}
Procedure Store(var S: TStream); Virtual;
Constructor Load(var S: TStream);
…..
end;
Procedure TMyDialog.Store(var S: TStream);
begin
TDialog.Store(S); {Сохраняем наследуемые поля}
S.write(ST, SizeOf(St)); {Сохраняем текстовое поле}
PutSubViewPtr(S, PB); {Сохраняем кнопку}
end;
Constructor TMyDialog.Load(var S: TStream);
begin
TDialog.Load(S); {Получаем наследуемые поля}
S.Read(St, SizeOf(St)); {Получаем тестовое поле}
GetSubViewPtr(S, PB); {Получаем кнопку}
end;