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

[Khabarakh]

Zitat von mh166:

Zitat von DevilsCamp:

Ich meinte damit:
Wenn man eine Klasse erstellt, dann soll man den Destructor Destroy überschreiben und nicht Free zu einem Destructor machen.

Thx 4 info. Bis jetzt hab ich auch immer Free überschrieben...

Sollte eigentlich daran ersichtlich sein, dass Free überhaupt nicht überschrieben werden kann .

@yankee: Das liegt sicher nicht an der Modifikation. Schau nochmal genau deine uses-Klauseln durch.

[yankee]

Zitat von Khabarakh:

@yankee: Das liegt sicher nicht an der Modifikation. Schau nochmal genau deine uses-Klauseln durch.

Ich habe die mir jetzt 10 mal durchgelesen und mit der qt-Suche den Quelltext nach weiteren uses durchsucht, damit ich wirklich nichts übersehe usw.
Ich check' das einfach nicht...

[xaromz]

Hallo,

das Problem hatte ich auch ab und zu. Meistens hilft dann ein komplettes Erstellen des Programms (nicht nur ein Compilieren des Geänderten). Manchmal muss man auch einfach die Unit verändern (z. B. ein Zeichen einfügen, das Zeichen wieder löschen und dann speichern). Danach klappt's dann wieder.
Ist wohl ein Bug im Compiler.

Gruß
xaromz

[mh166]

Zitat von Khabarakh:

Sollte eigentlich daran ersichtlich sein, dass Free überhaupt nicht überschrieben werden kann .

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.

mfg, mh166

[malo]

Zitat von mh166:

[...]von TObject "abgelitten" (wie heißt das eigentlich richtig? )

Nein, es heißt "abgeleitet"
Oder hat es was mit leiden zu tun?

[alzaimar]

Zitat von malo:

Zitat von mh166:

[...]von TObject "abgelitten" (wie heißt das eigentlich richtig? )

Nein, es heißt "abgeleitet"
Oder hat es was mit leiden zu tun?

Manchmal schon...

[xaromz]

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

[DevilsCamp]

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.
mfg, mh166

Doch hat es...

[Khabarakh]

Du hast wohl TObject.Free nur überdeckt (was fatale Auswirkungen haben kann) und nicht überschrieben. Letzteres ist wie gesagt nicht möglich und wird mit einem Compilerfehler quittiert.

[mh166]

Naja, nun weiß ichs und gelobe Besserung.

mfg, mh166