delphi有没有判断一个变量是否是整型或者其他类型的函数呢？

Question

delphi有没有判断一个变量是否是整型或者其他类型的函数呢？

Answer 1

没有，只有用转换来捕捉异常，如判断EDIT的值是否是integer
try
  StrToInt(Edit1.Text);
except
  ShowMessage('该值不是数字');
end;

Answer 2

function IsNumber(s:string):integer;
var
  i : integer;
begin
  result := 2;
  for i := 1 to Length(s) do
  begin
    if (s[i] < '0') or (s[i] > '9') then
    begin
      if (s[i] = '.') and (i <> 1) and (i <> Length(s)) then
      begin
        if result = 1 then
        begin
          result := 2;
          Exit;
        end;
        result := 1;
        continue;
      end;      exit;
    end;
  end;
  if result <> 1 then result := 0;
end;返回 0 -- integer  1 -- double    2 ---string