LehrerDatenLaden: Unterschied zwischen den Versionen

LehrerDatenLaden (Quelltext anzeigen)

33 Bytes hinzugefügt , 7. September 2021

2.384

Bearbeitungen

@@ Zeile 15: / Zeile 15: @@
 |-
 |'''Beispiel''' ||
-     procedure Label4711OnGetText(var Text: String);
+    procedure Label4711OnGetText(var Text: String);
      var
        lName, lVorname, lAnrede, lTitel, lAmtsbez: String;
@@ Zeile 21: / Zeile 21: @@
        LehrerdatenLaden(Schueler['Lehrer'],lName, lVorname, lAnrede, lTitel,lAmtsbez);
        Text:=lAnrede;
-       if lAmtsBez <> '' then Text:=Text + lAmtsBez;
+       if lAmtsBez <> <nowiki>''</nowiki> then Text:=Text + lAmtsBez;
-       if lTitel <> '' then Text:=Text +  lTitel;
+       if lTitel <> <nowiki>''</nowiki> then Text:=Text +  lTitel;
        Text:=Text + lVorname +  lName;
      end;