我用下面这个函数来判断一个字符串是否可以转化为整数，可是总是报错，请指点

Question

Function RecDeal.ifInt(sStr:string):boolean;
begin
  Result := True;
  try
    StrToInt(sStr);  //  <---在这一句时，总是会报错，怎样屏掉这个报错呢
  except
    Result := False;
  end;
end;

Answer 1

调试时，总是异常，可以设置Debug的选项屏蔽
运行时，肯定不会显示异常

Answer 2

Tools->Debugger Options->Language Exceptions->Stop on Delphi Exceptions不打勾

Answer 3

function isint(txt: string):boolean;
var  i:integer;begin
for i:=1 to length(txt) do
   if  (txt[i] in ['0'..'9'])  then  Result :=true
   else Result :=false;
end;
这样写这个函数比较好吧！

Answer 4

转换int用这个,上一个是判断！
function toint(txt: string):integer;
var
    i:integer;
begin
if txt='' then  txt:='0';
for i:=1 to length(txt) do
   if  not(txt[i] in ['0'..'9']) then
       begin
           delete(txt,i,1);
           insert('0',txt,i);
       end;
Result :=strtoint(txt);
end;