AufzaehlungRTF: Unterschied zwischen den Versionen

AufzaehlungRTF (Quelltext anzeigen)

200 Bytes hinzugefügt , 8. April 2014

keine Bearbeitungszusammenfassung

2.384

Bearbeitungen

@@ Zeile 9: / Zeile 9: @@
      aLabel      - Positionsmarke, an der die Aufzählung eingefügt werden soll, eingeschlossen
                    von <ul>..</ul> für eine ungeordnete Liste bzw. <ol>..</ol>
-                   für eine geordnete (numerierte) Liste.
+                   für eine geordnete (nummerierte) Liste.
      aListe      - Stringliste, die die einzufügenden Zeilen enthält
 |-
@@ Zeile 16: / Zeile 16: @@
 |-
 |'''Beispiel''' ||
-     procedure DetailBeforePrint;
+     Die Liste muss global deklariert werden:
-     var
+    var
         lListe : TStringList;
+    Muss in diesem Ereignis erzeugt werden:
+    procedure ReportBeforePrint;
+     Begin
+      lListe:=TStringList.Create;
+     Wird hier befüllt:
+     procedure DetailBeforePrint;
       begin
-        lListe:=TStringList.Create;
+        lListe.Clear;
         lListe.Add('Zeile 1');
         lListe.Add('Zeile 2');
         Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe);
-       // Im Richtext muss dann <ul>$LISTE$</ul> oder
+        lListe:=TStringList.Free;
-       // <ol>$LISTE$</ol> eingefügt werden.
-        lListe.Free
       end;
+     <nowiki>// Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.</nowiki>
 |}