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