Exception im Konstruktor lösen Destructor aus auch bei Interfaces

[ColeZero]

Zitat von Uwe Raabe:

Das BeforeDestruction wird automagisch vor dem Aufruf der vererbten Destroy-Kette aufgerufen. Mit meinem Vorschlag ersetzt du nicht generell die Referenzzählung, sondern schaltest sie nur während des Destroy aus. Wenn im Constructor keine Exception ausgelöst wird, wird auch kein Destroy aufgerufen und somit das BeforeDestruction auch nicht - alles läuft wie gehabt.

Okay das probiere ich mal aus. Vielen Dank für die Info!

[Blup]

Alternativ kann man den Referenzzähler (FRefCount) auch gleich auf 0 setzen.

[Uwe Raabe]

Zitat von Blup:

Alternativ kann man den Referenzzähler (FRefCount) auch gleich auf 0 setzen.

Das kann aber auch schief gehen. Wenn nämlich im Destroy die Instanz als Interface-Referenz verwendet wird, die wiederum eine Referenzzählung auslöst, wird mit dem _AddRef/_Release womöglich noch ein Free aufgerufen. Das gilt übrigens immer bei Abkömmlingen von TInterfacedObject und nicht nur in diesem Fall. Warum dieser Fall im constructor berücksichtigt wird, im destructor aber nicht, bleibt ein Rätsel. Ein diesbezüglicher QC-Eintrag von mir bereits für Delphi 2007 ist immer noch Open. In der VCL kommt das Problem offenbar nicht vor.