AufzaehlungRTF: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Keine Bearbeitungszusammenfassung |
Keine Bearbeitungszusammenfassung |
||
| Zeile 16: | Zeile 16: | ||
|- | |- | ||
|'''Beispiel''' || | |'''Beispiel''' || | ||
Die Liste muss global deklariert werden: | |||
var | |||
lListe : TStringList; | lListe : TStringList; | ||
Muss in diesem Ereignis erzeugt werden: | |||
procedure ReportBeforePrint; | |||
Begin | |||
lListe:=TStringList.Create; | |||
Wird hier befüllt: | |||
procedure DetailBeforePrint; | |||
begin | begin | ||
lListe | lListe.Clear; | ||
lListe.Add('Zeile 1'); | lListe.Add('Zeile 1'); | ||
lListe.Add('Zeile 2'); | lListe.Add('Zeile 2'); | ||
Version vom 8. April 2014, 13:33 Uhr
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, eingeschlossenvon
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