writing to TStream is not supported

[zoltanleo]

Сабж при попытке писать из TMemo поток. Код примерно такой:

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

procedure TForm1.Button2Click(Sender: TObject);
var TmpStream: TStream;
begin
  TmpStream:= TStream.Create;
  try
    Memo1.Lines.SaveToStream(TmpStream); // <== вот тут ошибочка
    TmpStream.Position:= 0;
  finally
    FreeAndNil(TmpStream);
  end;
end;

Как обойти?

[hovadur]

TmpStream:= TStream.Create;

TStream - абстрактный класс. Надо какой-нибудь потомок указать, например

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

TmpStream:= TFileStream.Create;

[zoltanleo]

TStream - абстрактный класс.

Блин, ну конечно же. Так давно не брал в руки шашку, что забыл про свой любимый TMemoryStream

ps.спасибо