LehrerDatenLaden: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
| (Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt) | |||
| 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 <> | if lAmtsBez <> <nowiki>''</nowiki> then Text:=Text + lAmtsBez; | ||
if lTitel <> | if lTitel <> <nowiki>''</nowiki> then Text:=Text + lTitel; | ||
Text:=Text + lVorname + lName; | Text:=Text + lVorname + lName; | ||
end; | end; | ||
Aktuelle Version vom 7. September 2021, 09:11 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