delphi 判断字符串是否为纯字母组合的函数
更新时间:2022年12月24日 21:58:43 投稿:mdxy-dxy
这篇文章主要介绍了delphi 判断字符串是否为纯字母组合的函数,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
代码一
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判断字符串是否是数字、字母、大小写字母
function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=true; //设置返回值为 是(真) Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not (Vaule[i] in ['0'..'9']) then //如果Vaule的第i个字不是0-9中的任一个 begin result:=false; //返回值 不是(假) exit; //退出函数 end; end; end; function IsUpperCase(Vaule:String):Boolean; //判断Vaule 是不是大写字母 var i:integer; begin result:=true; //设置返回值为 是 Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not (Vaule[i] in ['A'..'Z']) then //如果Vaule的第i个字不是A-Z中的任一个 begin result:=false; //返回值 不是 exit; //退出函数 end; end; end; function IsLowerCase(Vaule:String):Boolean; //判断Vaule 是不是小写字母 var i:integer; begin result:=true; //设置返回值为 是 Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not (Vaule[i] in ['a'..'z']) then //如果Vaule的第i个字不是a-z中的任一个 begin result:=false; //返回值 不是 exit; //退出函数 end; end; end; 同理 如果想判断是不是字母的话 function IsEnCase(Vaule:String):boolean; //判断Vaule 是不是字母 var i:integer; begin result:=true; //设置返回值为 是 Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if (not (Vaule[i] in ['A'..'Z'])) or (not (Vaule[i] in ['a'..'z'])) then //如果Vaule的第i个字不是A-Z或者a-z中的任一个 begin result:=false; //返回值 不是 exit; //退出函数 end; end; end;
到此这篇关于delphi 判断字符串是否为纯字母组合的函数的文章就介绍到这了,更多相关delphi 纯字母内容请搜索程序员之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持程序员之家!
相关文章
解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题
今天小编就为大家分享一篇解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧2020-02-02
最新评论