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

Delphi异常处理机制

悦读