RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

Delphi7判断字符是否是数字

作者:admin 来源: 日期:2014/11/20 14:45:40 人气: 标签:

介绍:下面是判断字符是否是数字的几个办法

1:通过每个字符的ansi码是多少来判断
function IsNumber(aVal: string): Boolean;
var
  i: Integer;
begin
  Result := True;
  for i := 1 to Length(aVal) do
  begin
    if (Word(aVal) > 57) or (Word(aVal) < 48) then
    begin
      Result := False;
      break;
    end;
  end;
end;




2:通过StrtoInt来判断,如果出现异常,那么是字符串,否则是数字
function IsNumber(aVal: string): Boolean;
var
  a:Integer;
begin
  try
    Result:=True;
    a:=StrToInt(aVal);
  except
    Result:=False;
  end;
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: