try .. except ... oder finally?

[ltiefland]

Zitat von mifuno:

Delphi-Quellcode:

try
   img_zelle:= TBitmap.Create;
   img_zelle.LoadFromFile(CStein3);
   ...
except
  img_zelle.free; 
  // Befreit den Speicherplatz der verketeten Liste
  destroyList;
  showMessage('Bild wurde nicht gefunden');
  close;
end;
  img_zelle.free;

Versuche es doch mal so:

Delphi-Quellcode:

try
   try
      img_zelle:= TBitmap.Create;
      img_zelle.LoadFromFile(CStein3);
      ...
   except
   end;
finally
  img_zelle.free;
  // Befreit den Speicherplatz der verketeten Liste
  destroyList;
  showMessage('Bild wurde nicht gefunden');
  close;
end;

So sollte es gehen. Ein ähnliches Beispiel ist, wenn ich mich jetzt nicht irre, auch in der Delphi Hilfe drin.