wie kann man den Inhalt eines TRichedits in ein TMemo übertragen?

[himitsu]

Über den Stream müßte es auch gehn.

Delphi-Quellcode:

var
  S: TStream;
begin
  //RichEdit1.PlainText := False;
  S := TMemoryStream.Create;
  RichEdit1.Lines.SaveToStream(S);
  S.Position := 0;
  Memo1.Lines.LoadFromStream(S);
  S.Free;
end;

PS: LoadFromFile erstellt nur einen TFileStream und liest dann über LoadFormStream. (bzw. auch andersrum)