Delphi 判断一个字符串是否为数字

页面导航:首页 > 软件编程 > Delphi > Delphi 判断一个字符串是否为数字

Delphi 判断一个字符串是否为数字

来源: 作者: 时间:2016-01-21 09:33 【

//函 数 名: IsDigit//返 回 值: boolean//日 期:2011-03-01//参 数: String//功 能: 判断一个字符串是否为数字//作 者:liubin//**************************************************************...

//函 数 名: 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;

 

摘自 #Define
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<