Delphi7判断字符是否是数字

本文整理自网络，侵删。

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

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 如何将整数值转换为罗马数字表示形式

用Delphi来实现全屏截图

Delphi中利用中断获得系统启动以来的时间

Delphi 字符串与内存流和文件的快速转换函数

Delphi 的字符及字符串 - char、ansichar、widechar、pchar、pansichar、pwidechar

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi 如何检查字符串是否为数字

Delphi 判断某个系统服务是否存在及相关状态

Delphi 提高进程自身权限

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi7判断字符是否是数字