try .. except .. finally

[angos]

Hi,

So herum ist es richtig.

Delphi-Quellcode:

[...]
begin
   ppFile := TNativeXml.CreateName('xyz');
   try
      try
         [...]
      except
         AddLogAlert( 'Fehler' );
      end;
   finally
      ppFile.Free;
   end;
end;

Ich frage mich allerdings noch immer, wozu du try except finally zusammen in einem Block brauchst. Nacheinander wird es doch sauber ausgeführt. Sehe da kein Problem. Das finally sollte in dem obigen Beispiel in jedem Fall ausgeführt werden.

Edit: nur nochmal um es als Info zusammenzufassen:

- finally dient dazu, einen Code in jedem Fall durchzuführen, zB zum Freigeben von Objekten
- except dient dazu, Fehler abzufangen und zu verarbeiten


Gruß
Ansgar