procedure TForm1.Button2Click(Sender: TObject);
var a:real;
begin
i:=i-1;
try
a:=10/i;
except
on EDivByZero do
exit;
end;
showmessage(floattostr(a));
end;
谢谢大家
...全文
679打赏收藏
[SOS]:为何异常不能被捕获?
procedure TForm1.Button2Click(Sender: TObject); var a:real; begin i:=i-1; try a:=10/i; except on EDivByZero do exit; end; showmessage(floattostr(a)); end; 谢谢大家