Pascal 7 & Objects


         

Put


-----------------------------------------------------------------

procedure Put(P: PObject);

Записывает объект в поток. Позднее объект может считываться из потока с помощью TStreamGet.Get. Put сначала находит запись регистрации типа объекта, сравнивая смещение таблицы виртуальных методов объекта с полем WmtLink всех зарегистрированных объектных типов (см. тип TStreamRec), затем записывает в поток идентифика- тор тип объекта (поле ObjType записи регистрации) и, наконец, вы- зывает метод Store этого объектного типа для записи объекта. Если передаваемый в Put аргумент имеет значение nil, то Put записывает в поток слово, содержащее 0. Если объектный тип P не зарегистри- рован (с помощью RegisterType), Put вызывает TStreamError и с по- током ничего не делает.

См. также: методы TStreamGet, RegisterType, TStreamRec, Store.



Содержание  Назад  Вперед