try 的问题(30分)

M

mnmn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #1

我想用异常处理,可是无论如何程序就是不
执行,
try
s:=strtoint(edit1.text);
except on EconvertErrordo
begin
showmessage('error');
exit;
end;
end;
strtoint()一执行系统就报错,不跳到except 上,试来试去都不行;
这段程序放在edit1的chang 上也不行.
各位帮帮忙!

 

F

fifa99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #2

你的程序在delphi环境下运行时是会这样的，
但假如光执行可执行文件的话就不会出现这个
错误。也就是说，
用户在运行这个程序里只会出现error这个错误。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #3

没问题！！！
procedure TForm1.Edit1Change(Sender: TObject);
var s:integer;
begin
try
s:=strtoint(edit1.text);
except on EconvertErrordo
begin
showmessage('error');
exit;
end;
end;
end;

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #4

不要在 ide 下运行。

 

W

WuWZY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #5

why not in ide?

 

Z

zensst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #6

在菜单中的Tools中，把异常跟踪关掉

 

M

mnmn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #7

多人接受答案了。