Try-Finally und Try-Except zusammen nutzen?

[Benmik]

Hat sich hier eigentlich in den letzten 10 Jahren etwas getan? Ist in den nächsten 100 Jahren etwas zu erwarten?

Ich habe laufend Routinen, in denen sowohl Fehler abgefangen als auch Ressourcen freigegeben werden müssen. Dieses

Delphi-Quellcode:

Try
  Try

finde ich furchtbar, und man sieht es auch selten. Es soll auch einen Haufen Code erzeugen.
Was ist eigentlich damit, dürfte ein Profi sich sowas leisten, oder wäre sein Ruf dann dahin?

Delphi-Quellcode:

  Except
    Liste.Free;
    Stream.Free;
    Objekt.Free;
    Showmessage('Mist!'); 
    exit(False);
  end;
  Liste.Free;
  Stream.Free;
  Objekt.Free;
end;

Wenn es noch gestattet ist und nicht als OT angesehen wird, würde ich auch gern auf diesen Beitrag bei SO verweisen (selbstverständlich führt auch dort David Heffernan seine Klinge). Ich habe nämlich auch angefangen, sehr viele Prozeduren in Funktionen umzuwandeln, in denen der Wert über einen var-Parameter zurückgegeben wird und Result mitteilt, ob alles geklappt hat. If BestimmeWert(var Wert:string) then ... gefällt mir codetechnisch viel besser als

Delphi-Quellcode:

Wert := BestimmeWert;
If Wert <> '' then ...

.