Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#17

Re: inherited Free; <-- warum kommt da eine exeption?!

  Alt 21. Jan 2006, 23:00
Hallo,
Zitat von mh166:
Hmm... Das ich das nich gemerkt hab liegt - wie ich gerade noch mal nachgeguckt hab - daran, dass ich bis jetzt immer von TObject "abgelitten" (wie heißt das eigentlich richtig? ) hab. Und das hat gar keine Free-Procedure. Aber mein inherited; hat er bis jetzt immer anstandslos akzeptiert.
Inherited kann in jeder Methode stehen. Wenn es keine Vorfahr-Methode gibt, passiert eben nichts.
Übrigens steht in der System.pas:
Delphi-Quellcode:
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;
Ist also wohl doch in TObject definiert.

Gruß
xaromz
  Mit Zitat antworten Zitat