Wie kopiert man einen RichEdit Text?

[Popov]

Irgendwie kriege ich das nicht hin ohne einen Code zu produzieren der voller Ausnahmeregeln ist.

Ich hab zwei RichEdit Felder. In den ersten füge ich einen Originaltext ein. WordWrap ist True. Trotzdem kann ich des Programmfenster in der Breite ändern, der Text (bzw. WordWrap) passt sich dem Fenster an. Habe ich also ein Absatz bestehend aus 10 Zeilen (bei eingeschaltetem WordWrap) und verdoppele ich die Breite des Fensters, wird der Text korrekt umbrochen. Der Text ist immer noch ein Absatz, nur eben zehn mal umbrochen.

Das ändert sich wenn ich einen Teil des Fensters markiere und an das zweite RichEdit schicke. Das zweite Fenster betrachtet nun jede erhaltene Zeile als ein Absatz. Verkleinere ich nun das Fenster, habe ich einen zerstückelten Absatz, bzw. für das zweite RichEdit besteht der Text aus zehn Absätzen.

Egal wie ich das nun übertrage, in keinem wird der Zeilenumbruch ignoriert. Anscheinend weiß das erste RichEdit wo die Absätze sind, sendet aber beim Kopieren eben jede Zeile als Absatz.

[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.