Der Konstruktor ist abgestürzt - Wie gehe ich im Destruktor am besten vor?

[Der schöne Günther]

Es ist einer der Fälle, der nicht passieren sollte. Ähnliches habe ich schonmal in Sachen Beenden abgestürzter Threads angestoßen ("Wie beende ich einen TThread freundlich und notfalls gewaltsam?") - Trotzdem möchte ich mich darum kümmern.

Folgende Annahme: Der Konstruktor eines Objekts läuft nicht durch, irgendwo mittendrin fliegt er mit einer Exception raus. Wenn ich es richtig verstanden habe, wird nun das Exception-Objekt erzeugt, der Destruktor des Objekts aufgerufen und anschließend die Exception "nach oben gereicht".

Es geht um den Destruktor: Hier muss man nun aufpassen, keine Objekte zu zerstören die vom Konstruktor noch nicht angelegt worden sind.

Wie handelt Ihr hier?

• Bei jeder einzelen Freigabe prüfen, ob es überhaupt etwas freizugeben gibt?
• Vielleicht sogar eine Instanzvariable die angibt, ob der Konstruktor einwandfrei durchgelaufen ist um darauf im Destruktor reagieren zu können?
• Oder noch ganz andere Dinge die zu beachten sind?

Ich bin gespannt 8-)

[DeddyH]

Davon ausgehend, dass es sich bei den angesprochenen Objekten um private Felder der eigenen Klasse handelt, musst Du nichts weiter beachten. Diese sind initial nil, wenn Du sie also im Destruktor mit Free freigibst, passiert nichts, da Free erst auf nil prüft und dann erst Destroy aufruft. Daraus folgt: was nicht da ist, wird auch nicht versucht freizugeben.

[Der schöne Günther]

Tatsächlich. Ich bin durcheinandergekommen da der Debugger bei einer Exception im Konstruktor einen mit F7 nicht mehr durch den Destruktor wandern lässt soweit man nicht explizit einen Haltepunkt dort hineinsetzt.

Ich rede wirres Zeug, belassen wir es damit ;-)

[ConnorMcLeod]

Vllt bin ich jetzt auf dem falschen Dampfer, aber was spricht gegen

Delphi-Quellcode:

FreeAndNil

?

[DeddyH]

Im Prinzip nichts, aber Free genügt in diesem Falle auch.

[Klaus01]

.. freeAndNil erzeugt eine Exception wenn die freizugebene Instanz nicht mehr existiert.

Grüße
Klaus

[flipdascript]

Zitat:

Zitat von Klaus01 (Beitrag 1211163)

.. freeAndNil erzeugt eine Exception wenn die freizugebene Instanz nicht mehr existiert.

Grüße
Klaus

Aber nur, wenn die Referenz <> nil ist. Das ist keine Einschränkung von FreeAndNil. In dem Fall würde es bei Referenz.Free genauso knallen.

[Aphton]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TMyBuggyObject = class
    PrivObject1: TObject;
    PrivObject2: TObject;
    constructor Create;
    destructor Destroy; override;
  end;

constructor TMyBuggyObject.Create;
begin
  Writeln('TMyBuggyObject.Create(): Allocating object1');
  PrivObject1 := TObject.Create;
  Writeln('TMyBuggyObject.Create(): Throwing exception');
  raise Exception.Create('TMyBuggyObject.Constructor - selfdestruct');
  Writeln('TMyBuggyObject.Create(): Allocating object2');
  PrivObject2 := TObject.Create;
end;

destructor TMyBuggyObject.Destroy;
begin
  Writeln('TMyBuggyObject.Destroy(): Im being called.');
  Writeln('TMyBuggyObject.Destroy(): PrivObj1=0x' + IntToHex(integer(PrivObject1), 8));
  Writeln('TMyBuggyObject.Destroy(): PrivObj2=0x' + IntToHex(integer(PrivObject2), 8));
  Writeln('TMyBuggyObject.Destroy(): Freeing both!');
  PrivObject2.Free;
  PrivObject1.Free;
  inherited;
end;

procedure main;
var
  Instance: TMyBuggyObject;
begin
  Instance := NIL;
  try
    Instance := TMyBuggyObject.Create;
    try
      Writeln('Maincode: No exception!');
    finally
      Instance.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Writeln('Address of instance:'#9'0x', IntToHex(integer(Instance), 8));
  Readln;
end;

begin
  ReportMemoryLeaksOnShutdown := True;
  main;
end.

Code:

TMyBuggyObject.Create(): Allocating object1
TMyBuggyObject.Create(): Throwing exception
TMyBuggyObject.Destroy(): Im being called.
TMyBuggyObject.Destroy(): PrivObj1=0x00520D10
TMyBuggyObject.Destroy(): PrivObj2=0x00000000
TMyBuggyObject.Destroy(): Freeing both!
Exception: TMyBuggyObject.Constructor - selfdestruct
Address of instance:    0x00000000

[Uwe Raabe]

Was willst du uns mit dem Code jetzt sagen?

[DeddyH]

Ich dachte schon, ich sei der Einzige, der sich das fragt :)