各位老大,最近小弟在学习delphi的异常处理,遇到一个问题,希望各位赐教.以下有两段代码第一段可以正常的捕获异常而第二段不能.不知道是为什么?
代码1:
var
X,Y,Z:Integer;
begin
X:=65535;
try
{$q+,r+}
Y:=strtoint(edit1.Text);
Z:=x+y;
showmessage(inttostr(z));
except
on ERangeError do showmessage('数据越界错误！');
on EConvertError do showmessage('数据转换错误！');
on EIntOverFlow do showmessage('数据溢出错误！');
end;
end;
第二段代码:
var
X,Y,Z:Integer;
begin
X:=65535;
try
{$q+,r+}
Y:=strtoint(edit1.Text);
Z:=x+y;
except
on ERangeError do showmessage('数据越界错误！');
on EConvertError do showmessage('数据转换错误！');
on EIntOverFlow do showmessage('数据溢出错误！');
end;
end;
希望各位赐教