Text im rtf-Feld ersetzen

{slide=Text im rtf-Feld ersetzen}

Wie kann man Platzhalter in einem rtf-textfeld ersetzen?

 

  • Im rtf-Text eine eindeutige Bezeichnung einfügen (meist wird bspw. $Datum$ verwendet)
  • Im Onprint-Ereignis des Richtext-Feldes etwa folgendes eingeben: 
    Richtext1.Richtext:=ReplaceText(Richtext1.Richtext, '$Datum$', '20.2.2014');
  • Wenn man eine Variable (hier: Datum:string;) global definiert (Berechnungen > Ansicht > Verwendete Module > Deklarationen > Variables), kann man z. B. beim Laden des Reports auch eine Datumsabfrage einbauen:
    Datum:= PickDatum('Datum', '');

    Im “Replacetext” wird dann statt eines konkreten Datums die Variable eingesetzt: 

    Richtext1.Richtext:=ReplaceText(Richtext1.Richtext, '$Datum$', Datum);

    • {/slide}