如何判断字符串是数字字符串?

Question

function IsStrANumber(NumStr : string) : boolean;
begin
  result := true;
  try
    StrToInt(NumStr);
  except
    result := false;
  end;
end;我原以为这样写是可以的,可是,当运行到//StrToInt(NumStr);时就出错了,try...except 没起到作用啊?

Answer 1

有作用，是Delphi本身先截获了，在外面运行就可以了。

Answer 2

或者这样判断：
if strtofloatdef(NumStr, 0) = strtofloatdef(NumStr, 1) then
  result := true;
else  
  result := false;