try--except异常处理问题

Question

procedure TForm1.Button1click(Sender:TObject)
var
  i:integer;
begin
   try
    i:=strtoint(Edit1.text);
   except
      showmessage('AA');
   end;
end;
出现转换错误，为什么不执行showmessage('AA');而直接给出错误警告！
哪为大哥帮个忙解决一下！
except加上on ...do...也行，就是不执行except后面的语句为什么？

Answer 1

strtoint内部错误 还没有运行到Except那呢你自己控制StrToint吧

Answer 2

对,还没有运行到EXCEPT那儿,别在IDE中运行,直接运行编译过的EXE文件就OK了,楼主试试...

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if  (key in ['0'..'9',#13]=false) and (word(key)<>vk_back) then begin  
        key:=#0;
end;
只能让其输入数字就不会报错了

Answer 4

if edit1='' then i:=0 else i:=strtoint(Edit1.text);

Answer 5

try
....
except on E: Exception do
  showmessage('aa');
end
在你调试时会弹出错误，编译后运行exe文件时，会弹出信息。

Answer 6

正常的啊，debug的时候是先报错误的，独立运行你看看

Answer 7

procedure TForm1.Button1click(Sender:TObject)你没在结尾加;吧

Answer 8

正如楼上的
编译成EXE文件就可以了