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, 09: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