ХI. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С КЛАССАМИ И КОМПОНЕНТАМИ

2. Функции и процедуры для работы с ресурсами компонентов

Процедура ObjectBinaryToText( Input, Output: TStream );

Процедура ObjectBinaryToText( Input, Output: TStream; var OriginalFormat: TStreamOriginalFormat );

Второй вариант вызова процедуры доступен только в Delphi 5

Модуль: Classes

type TStreamOriginalFormat = (sofUnknown, sofBinary, sofText);

Описание
Процедура преобразовывает двоичное представление объекта, используемое в файлах и потоках, в его текстовое представление понятное программисту.
Процедура создает объект TReader для входного потока Input и использует его для чтения двоичного представления объекта. Текстовое представление объекта записывается в поток Output. Запись двоичного представления объекта во входной поток Input осуществляется вызовом метода WriteComponent перед вызовом процедуры ObjectBinaryToText.

Пример
var

Input, Output : TStringStream;
S : string;

begin
...

Input.WriteComponent(Form1);
Input.Seek(0,0);
ObjectBinaryToText(Input, Output);
Memo1.Lines.Add(Output.DataString);

...
end;

[Вернуться к содержанию]