try .. except ... oder finally?

[Marphy]

Hallo zusammen,
heiße Diskussion hier...

Zitat von BenBE:

Jeder sagt was, aber keine hat von dem, was er sagt, Ahnung ... Die angesprochenen bitte demnächst erst denken und ansonsten Klappe halten

Da hast du (in diesem Fall) Recht.

Zitat:

Wenn der Konstruktor oder eine Operation mit einem Objekt fehlschlagen kann, so sieht die richtige Verfahrensweise so aus:

Delphi-Quellcode:

try 
    Image := TBitmap.Create; 
    try 
        Image.LoadFromFile(GehtSchief); 

        //Bild weiterverarbeiten 
    finally 
        FreeAndNil(Image); 
    end; 
except 
    ShowMessage('Fehler aufgetreten; interessiert aber eh keinen!'); 
end;

Ja, hier stimmt's.

Die IMHO bessere Lösung wäre aber diese (falls im except-Block die Prozedur nicht abgebrochen wird):

Delphi-Quellcode:

Image := TBitmap.Create; 
try
  Image.LoadFromFile(GehtSchief); 
  //Bild weiterverarbeiten 
except 
  ShowMessage('Fehler aufgetreten; interessiert aber eh keinen!'); 
end;
FreeAndNil(Image);

Gruß, Marco