Änderungen

|-  

|-  

|'''Beispiel''' ||  

|'''Beispiel''' ||  

    <code>procedure Label4711OnGetText(var Text: String);

    procedure Label4711OnGetText(var Text: String);

     var

     var

       lName, lVorname, lAnrede, lTitel, lAmtsbez: String;

       lName, lVorname, lAnrede, lTitel, lAmtsbez: String;

       LehrerdatenLaden(Schueler['Lehrer'],lName, lVorname, lAnrede, lTitel,lAmtsbez);

       LehrerdatenLaden(Schueler['Lehrer'],lName, lVorname, lAnrede, lTitel,lAmtsbez);

       Text:=lAnrede;

       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;

       Text:=Text + lVorname +  lName;

     end;</code>

     end;

|}

|}