Texteigens. eines TRichEdit auf anderes TRichEdit übertragen

[PAX]

Nabend!

Ich habe 2 TRichEdit-Komponenten, TRichEdit1 und TRichEdit2. TRichEdit1 beinhaltet Text mit spezifischen Style-Eigenschaften an bestimmten stellen. Ich möchte nun 2 Dinge erledigen:

• TStrings auf TRichEdit2 kopieren
• Style-Eigenschaften der einzelnen Stellen in den Strings übertragen

Ich habs mit folgendem Code versucht:

Code:

RichEdit2->Assign(RichEdit1);

Dies brach mit einer Fehlermeldung a lá, "TRichEdit kann nicht einem TRichEdit zugewiesen werden", ab.

Auch Dies funktionierte nicht:

Code:

RichEdit2->Lines->Assign(RichEdit1->Lines);
RichEdit2->Font->Style = RichEdit1->Font->Style;

Wie macht man das?

[MrKnogge]

Moin,

speicher den Text doch einfach in einen MemoryStream und lade ihn anschliesend von dort wieder, damit hast du dann auch die Textformatierungen.

Gruß

[PAX]

jepp! super! hab genau das auch gerade irgendwo im netz gefunden:

Code:

TMemoryStream *s = new TMemoryStream();
RichEdit1->Lines->SaveToStream(s);
s->Seek(0,0); //WICHTIG: Diese Zeile darf nicht fehlen
RichEdit2->Lines->LoadFromStream(s);
delete s; s = NULL;

ok, danke! :)