Delphi try except与try finally不同之处

本文整理自网络，侵删。

 
try except与try finally不同之处
　　try//尝试执行

　　　　{SomeCode} 
　　except//出错的时候执行, Except有特定的错误类型 
　　　　{SomeCode} 
　　end;

 

　　try//尝试执行
　　　　{SomeCode} 
　　finally//无论如何都强制执行
　　　　{SomeCode} 
　　end; 

 

例:


try
    Age:=StrToInt(Edit1.Text);
    ShowMessage(Format('生于%d年',[YearOf(Now)-Age]));

except
on EConvertError do
    showmessage('输入编辑框的不是一个有效的数字!');
on ERangeError do
    showmessage('输入编辑框的年龄值太大!');
end;

保留字on…do用于判断异常类型。必须注意的是：except后面的语句必须包含在某一个on…do模块中，而不能单独存在。这又是同finally不同的一个地方。

异常处理



try
    //成功失败都跳进finally语句里执行
finally

end;


try
    //失败才跳进 except里执行
except on e:Exception do
    ShowMessage(e.Message);
end; 
 

相关阅读 >>

Delphi 生成可以控制最大32位随机英文数字字符串

Delphi 获取本地ip地址源码

Delphi idhttp http.get 获取json数据

Delphi isthisleapyear 判断闰年

Delphi 程序如何禁止切换输入法?

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi psafearray与tbytes类型转换

Delphi searchrec.attr and fadirectory

Delphi windows的消息传递--消息盒子

Delphi 标题栏相关操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi try except与try finally不同之处