Сохранение компоненты как псевдосвойства

[gluhow]

Хочу при сохранении класса сохранить еще один класс как свойство

Код: Выделить всё

  { TAddData }

  TAddData=class(TComponent)
  private
    FTest: String;
  published
    property Test:String read FTest write FTest;
  end;

  { TSaveData }

  TSaveData=class(TComponent) //Класс который буду сохранять
  private
    procedure WriteAddProp(Writer: TWriter);
    public
      procedure DefineProperties(Filer: TFiler); override;
  end;

implementation
{ TSaveData }

procedure TSaveData.WriteAddProp(Writer: TWriter);
begin
  Writer.WriteComponent(TAddData.Create(Self)); //Пытаюсь записать еще один компонент. При вызове других свойств (WriteInteger и т.п.) всё нормально
end;

procedure TSaveData.DefineProperties(Filer: TFiler);
begin
  inherited DefineProperties(Filer);
  Filer.DefineProperty('AddProp', nil, @WriteAddProp, True);
end;

Само сохранение:

Код: Выделить всё

procedure TForm1.Button1OnCLick(Sender: TObject);
var
  MemStream:TMemoryStream;
  TxtStream:TStringStream;
begin
  MemStream:=TMemoryStream.Create;
  MemStream.WriteComponent(TSaveData.Create(self)); //При записи всё нормально
  MemStream.Position:=0;
  TxtStream:=TStringStream.Create('');
  LRSObjectBinaryToText(MemStream, TxtStream); //Здесь возникает ошибка
  Memo1.Text:=TxtStream.DataString;
end;

Возникает ошибка "Stream read error". Это я делаю что-то не так или это баг?

[serbod]

Зачем так сложно, можно сразу WriteComponentAsBinaryToStream(AStream, AComponent);

[gluhow]

Так сложно только затем чтобы показать что ошибка возникает не при сохранении компоненты в поток, а при попытке этот поток перевести в текст.
т.е если пользоваться WriteComponentAsBinaryToStream, то всё без ошибок (правда восстанавливать не пробовал), а при использовании WriteComponentAsTextToStream возникает та же самая ошибка.
Возможно я нашел ответ здесь: http://docs.embarcadero.com/products/ra ... onent.html

WriteComponent is used internally in the component streaming system, but can also be called directly when writing components to memory streams or database blobs. WriteComponent constructs a writer object and calls its WriteRootComponent method to write the component specified by Instance, and its owned objects, to the stream.

Правда говорится о RAD Studio, а не про паскаль