LehrerDatenLaden: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
(Die Seite wurde neu angelegt: „{|class="wikitable" === RAP-Funktion "{{SEITENNAME}}" === |'''Beschreibung''' || procedure LehrerDatenLaden(const Kuerzel: String; var Name, Vorname, Anre…“) |
Keine Bearbeitungszusammenfassung |
||
| 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 6. September 2021, 14:42 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