LehrerDatenLaden: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Zeile 15: | Zeile 15: | ||
|- | |- | ||
|'''Beispiel''' || | |'''Beispiel''' || | ||
− | + | procedure Label4711OnGetText(var Text: String); | |
var | var | ||
lName, lVorname, lAnrede, lTitel, lAmtsbez: String; | lName, lVorname, lAnrede, lTitel, lAmtsbez: String; | ||
Zeile 21: | Zeile 21: | ||
LehrerdatenLaden(Schueler['Lehrer'],lName, lVorname, lAnrede, lTitel,lAmtsbez); | LehrerdatenLaden(Schueler['Lehrer'],lName, lVorname, lAnrede, lTitel,lAmtsbez); | ||
Text:=lAnrede; | Text:=lAnrede; | ||
− | if lAmtsBez <> '' then Text:=Text + lAmtsBez; | + | if lAmtsBez <> /''/ then Text:=Text + lAmtsBez; |
− | if lTitel <> '' then Text:=Text + lTitel; | + | if lTitel <> /''/ then Text:=Text + lTitel; |
Text:=Text + lVorname + lName; | Text:=Text + lVorname + lName; | ||
− | end; | + | end; |
|} | |} | ||
Version vom 7. September 2021, 10:08 Uhr
RAP-Funktion "LehrerDatenLaden"
Beschreibung |
procedure LehrerDatenLaden(const Kuerzel: String; var Name, Vorname, Anrede, Titel, Amtsbez: String); |
Parameter |
Name - Nachname des Lehrers Vorname - ..des Lehrers Anrede - ..des Lehrers Titel - ..des Lehrers Amtsbez - ..des Lehrers |
Rückgabewert |
... |
Beispiel |
procedure Label4711OnGetText(var Text: String); var lName, lVorname, lAnrede, lTitel, lAmtsbez: String; begin LehrerdatenLaden(Schueler['Lehrer'],lName, lVorname, lAnrede, lTitel,lAmtsbez); Text:=lAnrede; if lAmtsBez <> // then Text:=Text + lAmtsBez; if lTitel <> // then Text:=Text + lTitel; Text:=Text + lVorname + lName; end; |
Zurück zu RAP-Funktionen