判断字符是否为整数、浮点型小数、字符串
function TForm_fangyuanhuizong_tubiao.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;
//返回 0 -- integer 1 -- double 2 ---string
end;