LehrerDatenLaden: Unterschied zwischen den Versionen

Zur Navigation springen Zur Suche springen
keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 15: Zeile 15:
|-  
|-  
|'''Beispiel''' ||  
|'''Beispiel''' ||  
     procedure Label4711OnGetText(var Text: String);
     <code>procedure Label4711OnGetText(var Text: String);
     var
     var
       lName, lVorname, lAnrede, lTitel, lAmtsbez: String;
       lName, lVorname, lAnrede, lTitel, lAmtsbez: String;
Zeile 24: Zeile 24:
       if lTitel <> ' ' then Text:=Text +  lTitel;
       if lTitel <> ' ' then Text:=Text +  lTitel;
       Text:=Text + lVorname +  lName;
       Text:=Text + lVorname +  lName;
     end;
     end;</code>
|}
|}


Navigationsmenü