UC知道Delphi代码改错
来源：百度知道 编辑：UC知道 时间：2024/05/11 21:32:00
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=16;
b:=24;
key:=trunc((a*b)/(a+b));
try
if StrToInt(edit1.Text)=key then
begin
ShowMessage('Right!Good Work!');
end
else
begin
ShowMessage('Sorry,wrong key');
end;
except
ShowMessage('Invalid integer, enter again, I need integer value');
end;
end;
大家帮忙看一下,我之后在edit1里输入非整数时它不但不转入except,照样弹出错误,是怎么回事?我是Delphi的新手,望高手指教!
begin
a:=16;
b:=24;
key:=trunc((a*b)/(a+b));
try
if StrToInt(edit1.Text)=key then
begin
ShowMessage('Right!Good Work!');
end
else
begin
ShowMessage('Sorry,wrong key');
end;
except
ShowMessage('Invalid integer, enter again, I need integer value');
end;
end;
大家帮忙看一下,我之后在edit1里输入非整数时它不但不转入except,照样弹出错误,是怎么回事?我是Delphi的新手,望高手指教!
这个不需要做任何改动啊。
在IDE环境下，EXCEPTION由DELPHI来捕捉。
而脱离了IDE的方式，单独运行生成的EXE文件，那么你的EXE文件就进行捕捉异常了。
你可以单独运行一下生成的EXE。
这个错误不用处理，Delphi会自动处理。
菜单Tools->Debugger Options
把Integrated debugging 前勾去掉。