Hier nochmal eine Ergänzung, wie GetReAdr noch
SQL ausführt:
Delphi-Quellcode:
function TForm1.GetReAdr: TAdresse;
begin
if Adresse.IsEmpty
then
begin
Query.HoleAufwändigDatenAb;
Adresse.Vorname :=
Query.FieldByName('
Vorname').asString;
Adresse.
Name :=
Query.FieldByName('
Name').asString;
end;
Result := Adresse;
end;