AufzaehlungRTF - Versionsgeschichte

Pfotenhauer am 8. April 2014 um 12:55 Uhr

2014-04-08T12:55:34Z

← Nächstältere Version		Version vom 8. April 2014, 14:55 Uhr
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 (~~numerierte~~) Liste.		für eine geordnete (nummerierte) Liste.
	aListe - Stringliste, die die einzufügenden Zeilen enthält		aListe - Stringliste, die die einzufügenden Zeilen enthält
	\|-		\|-

Pfotenhauer am 8. April 2014 um 12:33 Uhr

2014-04-08T12:33:04Z

← Nächstältere Version		Version vom 8. April 2014, 14:33 Uhr
Zeile 16:		Zeile 16:
	\|-		\|-
	\|'''Beispiel''' \|\|		\|'''Beispiel''' \|\|
	~~procedure DetailBeforePrint;~~		Die Liste muss global deklariert werden:
	var		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~~:=TStringList~~.~~Create~~;		lListe.Clear;
	lListe.Add('Zeile 1');		lListe.Add('Zeile 1');
	lListe.Add('Zeile 2');		lListe.Add('Zeile 2');

Pfotenhauer am 8. April 2014 um 09:21 Uhr

2014-04-08T09:21:32Z

← Nächstältere Version		Version vom 8. April 2014, 11:21 Uhr
Zeile 24:		Zeile 24:
	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>

Pfotenhauer am 5. November 2013 um 14:10 Uhr

2013-11-05T14:10:45Z

← Nächstältere Version		Version vom 5. November 2013, 16:10 Uhr
Zeile 26:		Zeile 26:
	lListe.Free		lListe.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>
	\|}		\|}

Pfotenhauer am 5. November 2013 um 14:10 Uhr

2013-11-05T14:10:21Z

← Nächstältere Version		Version vom 5. November 2013, 16:10 Uhr
Zeile 26:		Zeile 26:
	lListe.Free		lListe.Free
	end;		end;
	* Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.*		<nowiki>* Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.*</nowiki>
	\|}		\|}

Pfotenhauer am 5. November 2013 um 14:07 Uhr

2013-11-05T14:07:32Z

← Nächstältere Version		Version vom 5. November 2013, 16:07 Uhr
Zeile 24:		Zeile 24:
	lListe.Add('Zeile 2');		lListe.Add('Zeile 2');
	Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe);		Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe);
	~~// Im Richtext muss dann <ul>$LISTE$</ul> oder~~
	~~// <ol>$LISTE$</ol> eingefügt werden.~~
	lListe.Free		lListe.Free
	end;		end;
			* Im Richtext muss dann <ul>$LISTE$</ul> oder <ol>$LISTE$</ol> eingefügt werden.*
	\|}		\|}

Pfotenhauer: Die Seite wurde neu angelegt: „{|class="wikitable" === RAP-Funktion "{{SEITENNAME}}" === |'''Beschreibung''' || function AufzaehlungRTF(aRichtext: String; const Label: String;aListe: TS…“

2013-11-05T14:05:55Z

Die Seite wurde neu angelegt: „{|class="wikitable" === RAP-Funktion "{{SEITENNAME}}" === |'''Beschreibung''' || function AufzaehlungRTF(aRichtext: String; const Label: String;aListe: TS…“

Neue Seite

{|class="wikitable"
=== RAP-Funktion "{{SEITENNAME}}" ===
|'''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 <ul>..</ul> für eine ungeordnete Liste bzw. <ol>..</ol>
für eine geordnete (numerierte) Liste.
aListe - Stringliste, die die einzufügenden Zeilen enthält
|-
|'''Rückgabewert''' ||
Der veränderte Richtext
|-
|'''Beispiel''' ||
procedure DetailBeforePrint;
var
lListe : TStringList;
begin
lListe:=TStringList.Create;
lListe.Add('Zeile 1');
lListe.Add('Zeile 2');
Richtext1.Richtext:=AufzaehlungRTF(Richtext1.Richtext,'$LISTE$',lListe);
// Im Richtext muss dann <ul>$LISTE$</ul> oder
// <ol>$LISTE$</ol> eingefügt werden.
lListe.Free
end;
|}

'''Zurück zu [[RAP-Funktionen]]'''