DELPHI检查字符串是否为纯数字

本文整理自网络，侵删。

 检查字符串是否为纯数字
function checkNumber(checkStr:String):Boolean; //检查字符串是否为纯数字
var
strLength:Integer;
iCircle:Integer;
strNumber: set of char;
begin
Result:=True;
strNumber:=[''0'',''1'',''2'',''3'',''4'',''5'',''6'',''7'',''8'',''9''];
strLength:=length(checkStr);
for iCircle:=1 to strLength do
begin
if not (checkStr[iCircle] in strNumber) then
begin
Result:=False;
break;
end;
end;
end;
 

相关阅读 >>

Delphi 蓝牙连接打印机演示

Delphi下的纯pascal的十六进制转十进制

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi 隐藏桌面图标和任务栏

Delphi 三层架构简单例子(经测试成功)

Delphi 获取电脑进程网络连接ip端口

Delphi winapi: getwindowtextlength - 获取窗口标题长度

Delphi 拖动文件到exe 打开 获取getcommandline命令行

Delphi memo1 数字列设定取值范围

Delphi 文件路径获取文件名不带扩展名

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

转载请注明出处：木庄网络博客 » DELPHI检查字符串是否为纯数字