AufzaehlungRTF

Aus Schild-NRW Wiki
Zur Navigation springen Zur Suche springen

RAP-Funktion "AufzaehlungRTF"

Beschreibung
   function AufzaehlungRTF(aRichtext: String; const Label: String;aListe: TStrings): String;
   fügt eine Aufzählung (ungeordnete Liste) in einen RTF-Text ein.
Parameter
   aRichtext   - Der Richtext, in den die Aufzählung eingefügt werden soll
   aLabel      - Positionsmarke, an der die Aufzählung eingefügt werden soll, eingeschlossen
von
    ..
für eine ungeordnete Liste bzw.
    ..
                 für eine geordnete (numerierte) Liste.
   aListe      - Stringliste, die die einzufügenden Zeilen enthält
Rückgabewert
   Der veränderte Richtext
Beispiel
   Die Liste muss global deklariert werden:
   var
      lListe : TStringList;
   Muss in diesem Ereignis erzeugt werden:
   procedure ReportBeforePrint;
    Begin
     lListe:=TStringList.Create;
    Wird hier befüllt:
    procedure DetailBeforePrint;
    begin
      lListe.Clear;
      lListe.Add('Zeile 1');
      lListe.Add('Zeile 2');
      Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe);
      lListe:=TStringList.Free;
    end;
    // Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.


Zurück zu RAP-Funktionen