delphi 判断字符串是否为纯数字组合

本文整理自网络，侵删。

 

function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule[i] in ['0'..'9'])  then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; //返回值 不是
end
else
begin
result:=false; //设置返度回值为 是
exit;
end;
end;
end;
 

相关阅读 >>

Delphi 改变位图图片大小

Delphi中exit,abort,break,continue 的区别

Delphi ioutils tdirectory获取一个目录下所有文件名，包括子目录

Delphi 获取文件修改时间

Delphi xe并行编程：ttask

Delphi xe 播放 gif 动画

Delphi android 启动卡死处理方法

Delphi opendialog控件用法

Delphi 通过api 隐藏任务栏所有托盘图标

Delphi xe5 中tmemo控件的应用――for android

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

转载请注明出处：木庄网络博客 » delphi 判断字符串是否为纯数字组合