Richedittext nach Richedit ?

[Vader]

hallo Brüggendiek ,

du schreibst

Zitat:

Den StringStream für jedes RichEdit neu erstellen und die Teile rückwärts (also den letzten zuerst) einfügen, dann kommst Du mit SelStart:=0 ohne langes Suchen auf die Einfügestelle.

ich habs so probiert aber ohne erfolg, erliest nur den ersten stream ein

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  stream: TStringStream;

begin
  stream := TStringStream.Create ('');
  try
    richedit1.Lines.SaveToStream (stream);
    richedit2.Lines.SaveToStream (stream);
    richedit3.SelText := stream.DataString;
  finally
    stream.Free;
  end;
end;

mfg vader