Delphi异常处理机制

转自： http://blog.sina.com.cn/s/blog_5d9ee55e010103kr.html

Delphi的异常处理方式有两种：try...except...end;try...finally...end;。try...except主要用于捕获异常，只有出现异常的时候才会执行except部分。try...finally主要用于资源释放，无论try语句块是否有异常都会执行finally语句块。

    如下面的代码：

1  try

2     raise  exception.create( '发现异常');   //在try语句块中抛出一个异常

3  except

4     on  e:Exception  do       //捕获异常

5     begin

6        showMessage(e.message);    

7     end;

8  end;

    用try..except是不会出现异常提示信息的对话框，需要自己主动去show出异常信息。而try..finally.则会出现异常提示信息。try..except和try..finally可以相互嵌套。

   使用on e:Exception do可以精确处理特定的异常。Exception是所有异常类的基类，Delphi内部就定义了处理常见异常的异常类（在SysUtils单元中），也可以从Exception继承定义自己的异常类

   使用raise语句可以抛出一个异常：

01 EMyException= class(Exception)

02  end;

03  try

04     try

05        raise  EMyException.Create( '我自己的异常');

06     except

07       on  e:EMyException  do

08          showMessage(e.message);

09     end; 

10  finally

11     showMessage( '我始终被执行');

12  end