Richedittext nach Richedit ?

[Brüggendiek]

Hallo Vader!

Warum führts Du nicht aus, was ich Dir geraten habe?

Zitat von 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.

So sollte es gehen:

Delphi-Quellcode:

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

begin
  richedit3.SelStart := 0;   //diese beiden Anweisungen, damit am Anfang eingefüg wird
  richedit3.SelLength := 0;  //Der Anwender könnte ja die Position verstellt haben

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

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

Gruß

Dietmar Brüggendiek