Система программирования Turbo Pascal

smartarchitect.ru | http://www.wayofsociology.ru


 

Методы 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;

 

Назад Начало Вперед