try {SomeCode} 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 end;
try except on e:Exception
do ShowMessage(e.Message); end;