2.384
Bearbeitungen
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> | ||
|} | |} | ||