RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

delphi try except语句 和 try finally语句用法以及区别

作者:admin 来源:未知 日期:2010/5/9 15:03:45 人气: 标签:

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;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: