Delphi Bubblen Exceptions nach oben durch einen try-finally-Block?

Thema durchsuchen

Ansicht

Themen-Optionen

Bubblen Exceptions nach oben durch einen try-finally-Block?

Ein Thema von DGL-luke · begonnen am 11. Feb 2007 · letzter Beitrag vom 12. Feb 2007

Vorheriger Beitrag

Nächster Beitrag

Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge

Delphi 2006 Professional

#10

Re: Bubblen Exceptions nach oben durch einen try-finally-Blo

11. Feb 2007, 23:33

Das funktioniert:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  fs: TFileStream;

begin

  try

  fs := TFileStream.Create('c:\test.txt', fmCreate);

  try

  finally

    FreeAndNil(fs);

  end;

  except

   on E: Exception do

     ShowMessage('foobar');

   end;

end;