Änderungen

Zur Navigation springen Zur Suche springen
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ü