Question

关于DELPHI的try except的使用

procedure TForm1.Button1Click(Sender: TObject); var n ,m ,x : integer ; begin m:=0; x:=1; try //试着用出错语句. n:=strtoint(edit1.Text); except showmessage('a'); exit; end; for x := 1 to n do if odd(x) then m:=m+x; {while x<=n do begin if odd(x) then m:=m+x; x:=x+1; end;} edit2.Text := inttostr(m) end; end. 上面是代码 求1~N的奇数和. 我尝试用TRY 防止用户输入的是字符...但是 用法我看了和教程上面的一样 可运行的时候输入字符 还是会出现错误...百度搜了下 都是 关于它的使用方法... 求教了.

Answer 1

你用shift+ctrl+f9运行就可以看到效果了 不要直接f9，f9调试运行时任何异常都会被调试器先捕获，所以会弹出那个错误，或者你接下来点continue也可以