Eigener Destruktor

[ChrisM]

Hi.
Soweit ich weiß, heißt der Standard-Destruktor in Delphi Destroy, dass häufig verwendete Free ist eine einfache Procedure, welche Destroy aufruft, jedoch keine Speicherzugriffsverletzung hervorruft, wenn man sie mehrfach aufruft. Wenn ich jetzt in meiner Klasse einen eigenen Destruktor Destroy schreibe, wird dann beim aufrufen von Free automatisch mein eigener Destruktor verwendet? Sorry für die blöde Frage, aber bin noch Anfänger in Delphi.

[maximov]

Moin.

Wenn du den vorhandenen virtuell konstruktor mit override überschreibst, dann ist das der fall.

[Robert Marquardt]

Deine Vorstellung von Free ist falsch. Es ruft Destroy auf, aber ein Mehrfachaufruf wird nicht abgefangen.
Was (mit Hilfe von Compilermagie) abegefangen wird ist das bei a.Free der Aufruf unterbleibt falls a = nil ist.

[maximov]

Zitat von Robert Marquardt:

Deine Vorstellung von Free ist falsch. Es ruft Destroy auf, aber ein Mehrfachaufruf wird nicht abgefangen.
Was (mit Hilfe von Compilermagie) abegefangen wird ist das bei a.Free der Aufruf unterbleibt falls a = nil ist.

Ich glaub eher deine vorstellung ist falsch

Was solld daran bitte magie sein? :

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Wie soll der compiler auch wissen wann a = nil ist? er optimiert vielleicht unsinnige aufrufe, aber sonst auch nix! Self = a da self der unsichtbare data-pointer ist. Also macht es keinen unterschied ob ich
a.free; schreibe, oder ob ich
if a<>nil then a.destroy; mache!

Zitat:

Es ruft Destroy auf, aber ein Mehrfachaufruf wird nicht abgefangen.

Mehrfach nicht, aber da destroy virtuell ist in gewisser weise schon