Chr 将一个有序数据转换为一个ANSI字符

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;

http://hi.baidu.com/delphidiary/blog/item/7afa9680368156d2bc3e1eb9.html

 

posted @ 2010-02-15 13:03  猪悟能  阅读(181)  评论(0编辑  收藏  举报