异常处理 try 语句

[l285006911]

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,sum:integer;
begin
sum:=0;
try
n:=strtoint(edit1.Text);
except
showmessage('请输入正整数！');
exit;
end;
i:=1;
while i<=n do
begin
if odd(i) then
sum:=sum+i;
i:=i+1;
end;
edit2.Text:=inttostr(sum) ;

end;
我在中间加入了try语句 但是为什么运行的时候好像没用。。。请问以上代码要如何修改

[onlyou13]

try
  n:=strtoint(edit1.Text);
except
  showmessage('请输入正整数！');
  exit;
end;

上面改成

  n:=strtointdef(edit1.Text, -1);

  if n < 0 then
    showmessage('请输入正整数！');

[onlyou13]

[Quote=引用 1 楼 onlyou13 的回复:]

Delphi(Pascal) code
try
n:=strtoint(edit1.Text);
except
showmessage('请输入正整数！');
exit;
end;


上面改成

Delphi(Pascal) code
n:=strtointdef(edit1.Text, -1);

if n < 0 then
showmessage('……
[/Quote]

n:=strtointdef(edit1.Text, -1);

  if n < 0 then
  begin
    showmessage('请输入正整数！');
    exit;
  end;

[l285006911]

[Quote=引用 2 楼 onlyou13 的回复:]
引用 1 楼 onlyou13 的回复:

Delphi(Pascal) code
try
n:=strtoint(edit1.Text);
except
showmessage('请输入正整数！');
exit;
end;


上面改成

Delphi(Pascal) code
n:=strtointdef(edit1.Text, -1);

if n < 0 t……
[/Quote]
我主要想弄清楚 try语句 而且 你的这个我如果输入一个字母的话 也还是会跳出错误的啊

[kaixindzl]

  try
    n:=strtoint(edit1.Text);  //这一句只要是整数, 不分正负都不会报错.
  except
    showmessage('请输入正整数！');
    exit;
  end;

[l285006911]

[Quote=引用 4 楼 kaixindzl 的回复:]
Delphi(Pascal) code

try
n:=strtoint(edit1.Text); //这一句只要是整数, 不分正负都不会报错.
except
showmessage('请输入正整数！');
exit;
end;
[/Quote]
主要是 我输入一个字母 它也不会报错 是为什么

[Mit1208]

这个问题,我好像在百度知道里回答过...

[l285006911]

[Quote=引用 6 楼 lovemit 的回复:]
这个问题,我好像在百度知道里回答过...
[/Quote]
那答案是什么