Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.159 Beiträge
 
Delphi 10 Seattle Enterprise
 
#18

AW: Try - except - finally

  Alt 30. Sep 2013, 20:18
Delphi-Quellcode:
Referenz := TObject.Create();
try
  [...]
finally
  Referenz.Destroy();
end;
sparen
Jetzt mal blöd gefragt,
fliegt Dir das nicht doch noch um die Ohren, wenn die Erzeugung von Referenz fehlschlägt?
Sollte man nicht besser Referenz.Free aufrufen,
denn das prüft doch noch auf <> nil , bevor es destroy aufruft?
Oder denke ich falsch?
Ich sehe hier kein Problem. Wenn ich in den try-Block reinkomme, war der Konstruktor erfolgreich und es gibt eine gültige Referenz.

Fliegt der Konstruktor bereits raus, wird der try-Block erst garnicht ausgeführt (aber der Destruktor des Objekts aufgerufen).
  Mit Zitat antworten Zitat