Aber warum kriege ich dann immer einen Stack-überlauf?
Edit Fehler gefunden:
Code:
function TAddress.Gettitel: Ttitel;
begin
if not assigned(self.ftitel) then
begin
self.ftitel:=ttitel.Create(nil,MyConnection);
// self.titel.OnAfterSelectByID:=self.titelIdChange;
end;
if self.ID_TITEL <> 0 then
titel.SelectByID(self.ID_TITEL);
result:=self.titel; //ruft sich selber auf, richtig ist result:=self.Ftitel
end;