Freigaben innerhalb von Create?

[xZise]

Moin,
hier wird gesagt, dass Delphi automatisch alles freigibt. Wie sieht das jetzt mit dieser Klasse aus:

Delphi-Quellcode:

type
  TKlasse = class(TObject)
  private
    FFoo : TStrings;
  public
    constructor Create;
    destructor Destroy;
  end;

constructor TKlasse.Create;
begin
  inherited;
  FFoo := TStrings.Create;
end;

destructor TKlasse.Destroy;
begin
  FFoo.Free;
end;

Wenn jetzt im Create eine Exception auftritt, würde er dennoch Foo freigeben?

MfG
Fabian

[Tryer]

Ja, wird.
Tritt im Constructor eine Exception auf, dann wird der Destructor aufgerufen.
Fehler ist bei dir das der Destructor überschrieben werden muss ("override"/"inherited") um wirklich sauber zu arbeiten.

Grüsse, Dirk

[xZise]

Moin
1. würde Delphi rummeckern, dass es das nicht ist.
2. habe ich das im Browser zusammengetippt.

Aber im Destruktor könnten dann noch auch Exceptions geworfen werden oder nicht?

MfG
Fabian

[Meta777]

@ 1.
der Constructor einer von TObject abgeletieten Klasse kann nicht ge-"override"t werden. aber Reintroduce würde dir die compiler warnung verhindern.
Der Destructor muss allerdings als override deklariert sein - sonst wird er nicht aufgerufen.
@ 2. wenn deine object variable nil also noch nicht erzeugt ist wird .Free keine exception auslösen. Sollte also keine probleme machen.
shalom