频道分类

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

作者:admin 来源: 日期:2020/5/9 16:27:40 人气: 标签:

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

上一篇:delphi fmx 截图下一篇:没有资料