Wie kopiert man einen RichEdit Text?

[mkinzler]

Wie kopierst Du?

[Popov]

Die Frage war vielleicht leicht missverständlich. Mit kopieren meine ich nicht kopieren über die Zwischenablage, sondern von einem RichEdit in einen anderen RichEdit innerhalb des gleichen Programms. Auch wollte ich nicht mit SelText arbeiten, weil das Programm alleine Teile kopiert hat.

Was ich jetzt gemacht habe ist über SelText zu kopieren. Es flackert zwar etwas im Text, aber die Absätze werden korrekt kopiert.

[Perlsau]

Wenn du alles kopieren willst, dann nimm doch einfach einen MemoryStream:

Delphi-Quellcode:

procedure TForm1.Kopieren;
Var
  Strom : TMemoryStream;
begin
  Strom := TMemoryStream.Create;
  Try
    RichEdit1.Lines.SaveToStream(Strom);
    Strom.Position := 0;
    RichEdit2.Lines.LoadFromStream(Strom);
  Finally
    Strom.Free;
  End;
end;

Und wenn du an bestehenden Text im zweiten RichEdit anhängen willst, siehe dort.