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