JvRichedit Suchen und Ersetzen

[FrankBrin]

Hallo miteinander,
habe auf einem Form ein TJvRichedit plaziert (TRichEdit kann keine Bilder). Die Komponente wird via LoadFromFile mit einer RTF Datei gefüllt. Diese RTF Datei enthält Labels, die ich mit $-Zeichen markiert habe, also $Vorname$.
Nun möchte ich diese Labels zur Laufzeit durch richtige Werte ersetzen.
Habe hier bereits die Variante mit StringReplace gefunden
(REdCert.Text := StringReplace(REdCert.Text, '$Nachname$', FamilyName, [rfReplaceAll, rfIgnoreCase])

Diese Variante funktioniert wohl, löscht mir aber alle Grafiken aus der RTF.

Wie kann ich den Text ersetzen und dabei alle Formatierung erhalten?

Gruß Frank

[Stormy]

Hi,

schon mit AnsiReplaceStr versucht?

function AnsiReplaceStr(const AText, AFromText, AToText: string): string;
Gruß
Stormy

[FrankBrin]

Ja, jetzt schon - tut leider genau den gleichen Blödsinn.

Was auffällt ist, daß wenn ich die RTF Datei wieder speichere, diese bereits im Header drastisch verkürzt ist.

Jemand noch ne Idee?

[BrunoT]

Ich könnte mir denken, dies ging über den Zugriff auf die Eigenschaft TEXT

Code:

  JvRichEdit1.Text

Diese könnte man mit POS durchsuchen und dann ersetzen.
Ups, geht ja gar nicht. Ist ja formatiert.

aber so vielleicht:

Delphi-Quellcode:

   JvRichEdit1.FindText()
   JvRichEdit1.SetSelection();
   JvRichEdit1.SelText:='BlaBlu;

mfg

Holger

[FrankBrin]

So jetzt hab ich es mit Pos probiert: Habe mir also die Pos gemerkt, das Label Delete(d) und den Namen (ge)Insert. -> Pfeifedeckele -> genau das gleiche Ergebnis.

Was passiert da eigentlich?

[FrankBrin]

Hallo Holger,
das mit dem FindText ist eine super Sache - das TUT.

Vielen Dank
Gruß
Frank