AufzaehlungRTF: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Keine Bearbeitungszusammenfassung |
Keine Bearbeitungszusammenfassung |
||
| (2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
| Zeile 9: | Zeile 9: | ||
aLabel - Positionsmarke, an der die Aufzählung eingefügt werden soll, eingeschlossen | aLabel - Positionsmarke, an der die Aufzählung eingefügt werden soll, eingeschlossen | ||
von <ul>..</ul> für eine ungeordnete Liste bzw. <ol>..</ol> | von <ul>..</ul> für eine ungeordnete Liste bzw. <ol>..</ol> | ||
für eine geordnete ( | für eine geordnete (nummerierte) Liste. | ||
aListe - Stringliste, die die einzufügenden Zeilen enthält | aListe - Stringliste, die die einzufügenden Zeilen enthält | ||
|- | |- | ||
| 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'); | ||
Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe); | Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe); | ||
lListe.Free | lListe:=TStringList.Free; | ||
end; | end; | ||
<nowiki>// Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.</nowiki> | <nowiki>// Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.</nowiki> | ||
Aktuelle Version vom 8. April 2014, 13:55 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 (nummerierte) 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