本文整理自网络，侵删。
介绍：下面是判断字符是否是数字的几个办法
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;
相关阅读 >>
Delphi2007-Delphi2010 程序不出现在任务栏的方法
Delphi stringgrid 加载excel表格文件内容自动宽度
更多相关阅读请进入《Delphi》频道 >>
