Text von RichEdit zu RichEdit in TabSheets übertragen

[moperswings]

Hallo,

ich habe zwei TabSheets in denen sich jeweils ein RichEdit befindet.
Im ersten schreibe ich Text, im zweiten soll der geschriebene Text von <tags> eingeschlossen werden.
Aber immer, wenn ich von Tab1 zu Tab2 springe, ist in meiner ersten Zeile das Tag weg.
Warum funktioniert das nicht?

Delphi-Quellcode:

RichEdit2.Lines.add('

');
RichEdit2.Text := RichEdit1.Text;
RichEdit2.Lines.Append('</p>');

Ich habe schon mehrere Varianten durch, aber immer ist die erste Zeile mein geschriebener Text.
Hoffentlich könnt Ihr mir einen Tipp geben!

Viele Grüsse,
moperswings

[DeddyH]

Zitat von moperswings:

RichEdit2.Text := RichEdit1.Text;

Logisch, Du überschreibst ja den gesamten Inhalt des Richedits.

[moperswings]

Ja, aber wie verhindere ich das?

[DeddyH]

Wie wäre es denn so?

Delphi-Quellcode:

RichEdit2.Text := '

' + RichEdit1.Text + '</p>';

[moperswings]

Ja, ich bin ein Hirni!
Auf die einfachsten Lösungen komm ich einfach nicht!

Vielen Dank

moperswings