delphi 判断字符串是否为纯数字组合
<p>核心代码</p><div class="jb51code"><pre class="brush:delphi;">function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule in ['0'..'9'])then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; //返回值 不是
end
else
begin
result:=false; //设置返度回值为 是
exit;
end;
end;
end;</pre></div>
<p>代码二</p>
<div class="jb51code"><pre class="brush:delphi;">function IsNum(str: string): Boolean;
var
i: Integer;
begin
Result := True;
for i := 1 to Length(str) do
if not (str in ['0'..'9']) then
begin
Result := False;
Break;
end;
end;</pre></div>
<p>到此这篇关于delphi 判断字符串是否为纯数字组合的文章就介绍到这了,更多相关delphi纯数字内容请搜索琼殿技术社区以前的文章或继续浏览下面的相关文章希望大家以后多多支持琼殿技术社区！</p>
<div class="art_xg">
</div>
</div>
<!--endmain-->
頁:
[1]