您所在位置：主题：为何try except end;没看到效果,程序在下面
xqg119
[专家分：0] 发布于 2006-04-20 15:03:00
procedure TForm1.Button1Click(Sender: TObject);
var
w:word;
begin
try
w:=strtoint('$'+(edit1.Text));
edit1.Text:=inttostr(w);
except
showmessage('Error');
end;
end;
end.
//为什么当我输入正确的十六进制的时候就没问题,但当我输入错误的十六进制(如4R)时,不直接跳到 except 去执行?
var
w:word;
begin
try
w:=strtoint('$'+(edit1.Text));
edit1.Text:=inttostr(w);
except
showmessage('Error');
end;
end;
end.
//为什么当我输入正确的十六进制的时候就没问题,但当我输入错误的十六进制(如4R)时,不直接跳到 except 去执行?
