LehrerDatenLaden: Unterschied zwischen den Versionen

LehrerDatenLaden (Quelltext anzeigen)

10 Bytes entfernt , 7. September 2021

2.384

Bearbeitungen

@@ Zeile 15: / Zeile 15: @@
 |-
 |'''Beispiel''' ||
-     <code>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 <> /''/ then Text:=Text + lAmtsBez;
-       if lTitel <> '' then Text:=Text +  lTitel;
+       if lTitel <> /''/ then Text:=Text +  lTitel;
        Text:=Text + lVorname +  lName;
-     end;</code>
+     end;
 |}