各位富翁帮忙看一下我这段简单的错误捕捉为什么不能达到预期效果？(20分)

G

gmwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #1

procedure TForm2.Edit1Exit(Sender: TObject);
tempsbrbb_tsh:integer;
begin
try
tempsbrbb_tsh:=strtoint(edit1.text);//为确保在edit1中输入的数值为整型
except
showmessage(' 输入的数值不正确，请更正！ ');
edit1.SetFocus;
end;
end;
以上为什么会先出现系统错误后再出现' 输入的数值不正确，请更正！ '？

 

Y

yoking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #2

在运行时应该不会有异常出现

如果是在调试环境中,在调试环境中关闭 stop on exception 选项

 

C

chocolate

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #3

那你一定是调试允许吧，就是delphi f9运行的

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #4

因为调试环境。
可以设置 DEBUG 的异常选项

 

G

gmwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #5

多谢！

 

L

leizengzheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #6

except on EConvertError do
.......
end;
不要响应exit 事件。最好是在keydown 等中实现之。

 

C

cbtea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #7

别从delphi 上运行,直接运行程序就不会提示.