请问如何判断字符串里面的字符是否全为数字？

Question

有这的函数吗？？我是为了避免StrToFloat的出错！！！
谢谢谢谢

Answer 1

出错不怕,反而可以利用异常机制来判断try
  StrToFloat(String)
except
  ...
end;

Answer 2

var i:integer;
begin
  for i:=1 to length(字符串) do
    begin
       if  字符串[i] in ['0'..'9'] then
           showmessage('有数字');
    end;
end;

Answer 3

哦
异常机制的except后面是不是接出现异常的情况啊？？？？
谢谢谢谢

Answer 4

上面的方法有一点问题它会把
'$FF'
'0xFF'
'1.8E8'
等派出在数字之外,实际它们也是合法的数字当然还有最常用的小数点的问题,0出现位置的问题等等...

Answer 5

function check(s:string):boolean;//返回值为true,该字符串s为一数值,否则非数值
var i:integer;
   num:integer;
begin
  result:=true;
  num:=0;
  for i:=1 to length(s) do
    begin
       if  not (s[i] in ['0'..'9','.']) then
           result:=false;
       if s[i]='.' then num:=num+1;
    end;
  if num>1 then result:=false;//有两个以上'.'
end;

Answer 6

delphi 自己有个函数 Val,用法如下：i,code:integer;Val(YourString,i,code);如果返回 Code=0 ，则字符串 YourString 全是数字，i 就是转换后的数值。