Delphi 判斷一個字符串是否為數字

//函 數 名: IsDigit
//返 回 值: boolean
//日       期：2011-03-01
//參       數: String
//功       能: 判斷一個字符串是否為數字
//作       者：liubin
//***************************************************************************

function IsDigit(S:String):Boolean; //變量S為要判斷的字符串,返回true則正確
var
i,j:integer;

begin
    Result:=True;
    j :=0 ;
    for i :=1 to length(s) do
    begin
       if not (s[i] in ['0'..'9','.'])then   //判斷字符串每個字符即s[i],是否為"0"到'9"數字及".'
         Result:=False;
       if s[i]='.' Then //統計字符串中"."的個數
         j:=j+1;
    end;

    if j > 1 then   //字符串中"."的個數大於1
       Result:=False;

    if (s[1]='.') or (s[length(s)]='.') then //字符串中"."的在最前面和最後面
       Result:=False;
    //增加, 字符串中"."的位置之前有兩個"0"判斷
    s:=copy(s,1, pos('.', S)-1); //取字符串中"."的位置之前字符
    j:=0;
    for i:=1 to length(s) do
    begin
       if s[i]='0' then
          j:=j+1;
    end;

    if j > 1 then    //字符串中"."的位置之前有兩個"0"
       Result:=False;
end;