本文整理自网络,侵删。
介绍:下面是判断字符是否是数字的几个办法
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;
相关阅读 >>
Delphi enumwindows 获取窗体句柄 进程id 窗体信息
Delphixe4 版本中,已针对移动平台 引入了 arc 模型
Delphi xe 在andriod程序中获取外置sd卡根目录
更多相关阅读请进入《Delphi》频道 >>