Иллюстрированный самоучитель по Турбо Паскалю
Методы 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;