DELPH Try使用方法

1、普通的异常处理方法

 try
   //在这一步出错了
 except
   on e:Exception do    //捕获异常
   begin
      showMessage(e.message);   
   end;
 end;

2、主动抛出异常,并自定义异常名称

 try
   raise exception.create('发现异常');  //在try语句块中抛出一个异常
 except
   on e:Exception do    //捕获异常
   begin
     showMessage(e.message);   
   end;
 end;

3、多函数跳转导常处理

主函数下
 try
   geti('a');
 except
   on e:Exception do    //捕获异常
   begin
     showMessage(e.message);  
     //这里面的e.message 就会取函数内的 【数据不对】
   end;
 end;

//子函数
procedure geti(a:string)
begin
  if a<>'aa' then
  begin
    raise exception.create('数据就对'); 
  end;
  //上面如果执行了raise exception.create('数据就对'); 
  //下面的语句就不会继续执行了
  a:='aaa';
end;

4、finally

try
  
finally
   showMessage('不管TRY是否成功 ，我都执行一次');
end