Das Ungewöhnliche ist wohl das hier:
Delphi-Quellcode:
function TForm1.GetReAdr: TAdresse;
begin
Adresse.Vorname := 'a';
Adresse.Name := 'b';
Result := Adresse;
end;
Die Zuweisung von 'a' und 'b' im 'Getter' der ReAdr.
Man würde die Eigenschaften der Adresse einmalig setzen z.B. per LazyLoad.
Oder man würde gleich eine protected Property aus der Adresse machen.
LazyLoad wird im realen Code verwendet. Fehler tritt trotzdem auf. Auch mit einer protected Property. Das hier ist nun ein komprimierter Code um den Fehler zu zeigen...