Try-Finally und Try-Except zusammen nutzen?

[himitsu]

Welche Reihenfolge, das kommt drauf an, ob
erst Freigeben und dann Fehlerbehandlung, welche auch das Freigeben mit behandlet,
oder erst die Fehlerbehandlung und dann die Freigabe.

Eventuelle Speicherprobleme zuerst freigeben und dann behandlen,
aber muß man beim Behandelt auf das zugreifen, was knallte, dann Freigeben zuletzt.

Auch Sperren (CriticalSections und Datei- oder Datenbankzugriffe) meist zuerst beenden und dann z.B. den Fehlerdialog anzeigen,
weil andersrum kann es sonst schnell einen Deadlock geben.

Zitat:

Delphi-Quellcode:

try
  obj := TObject.Create;
  try
    // Some code
  except
    // Exception handling
  end;
finally
  obj.Free;
end;

Nein!

Lies dir die Compiler-Warnung durch und du weißt warum.

Delphi-Quellcode:

obj := TObject.Create;
try
  try
    // Some code
  except
    // Exception handling
  end;
finally
  obj.Free;
end;