Es funktioniert auch, wenn man die Adresse in einer lokalen Variablen zwischenspeichert.
Delphi-Quellcode:
function TForm1.GetDebitorName: string;
var
a: TAdresse;
begin
a := GetReAdr;
Result := a.Vorname + ' ' + a.Name;
end;
Aber wenn man's (sinnlos) mischt wieder nicht:
Delphi-Quellcode:
function TForm1.GetDebitorName: string;
var a:Tadresse;
begin
a:=GetReAdr;
Result := a.Vorname + ' ' + GetReAdr.Name;
end;
Edit: Andersrum gemischt geht's dann doch wieder:
Result := GetReAdr.Vorname + ' ' + a.Name;