编程论坛 → Delphi论坛

请教异常处理的问题

yaotian2008 发布于 2006-04-03 23:09， 627 次点击

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
x:=strtoint(edit1.Text);

except
showmessage('你输入的不是数字！');
end;
end;
//我的这段处理异常的句子为什么不能处理异常?我在edit1中输入字母A时,怎么程序没有提示"你输入的不是数字！"

3 回复

fxzmodel2006-04-04 00:26

你把你的代码改成这样试试看．
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
{$v+}
　x:=strtoint(edit1.Text);
except
showmessage('你输入的不是数字！');
end;
end;

makebest2006-04-04 11:57

如果在调试状态执行，出现错误时不要终止，继续就能看到。

或者单独执行编译的 EXE 文件可看到。

yaotian20082006-04-04 22:16

我执行EXE文件就看到我设置的提示了,谢谢各位!