Das Objekt wird nicht erzeugt, weil innerhalb des Konstruktors eine
Exception geworfen wird und der vom Delphi-Compiler implizit generierte Code das Exemplar wieder freigibt (nachprüfbar im CPU-Fenster, mit einem geeigneten Profiler oder mithilfe von
GetHeapStatus.TotalAllocated).
Bitte vergewissere Dich, dass der Destruktor implizit aufgerufen wird, indem Du die Zeile
myVar.Free auskommentierst:
Delphi-Quellcode:
myVar:= TMyClass.Create;
try
finally
// myVar.Free;
end;
Und dann sieh Dir die Ausgabe von
OutputDebugstring an. Notfalls solltest Du weitere Aufrufe dieser Prozedur in den Konstruktor/Destruktor einfügen, um den Programmverlauf nachzuverfolgen.
Noch einmal: Der
Except-Abschnitt fängt nicht die
Exception des Konstruktors ab, diese wird durch die
Exception des Destruktors "verschluckt". Deshalb und auch, weil die Ressourcen im trivialen Fall ohnehin freigegeben werden, verstehe ich nicht, warum Du den Except-Block benötigst? Welchen Vorteil hat man hierdurch?