delphi 判断字符串是否为纯字母组合的函数
一路向西 · 114浏览 · 发布于2023-06-16
这篇文章主要介绍了delphi 判断字符串是否为纯字母组合的函数,需要的朋友可以参考下
代码一
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;
相关推荐
PHP实现部分字符隐藏
沙雕mars · 1325浏览 · 2019-04-28 09:47:56
Java中ArrayList和LinkedList区别
kenrry1992 · 908浏览 · 2019-05-08 21:14:54
5月语言排行榜:R 跌出前二十,Python 紧咬 C++
manongba · 687浏览 · 2019-05-09 17:27:24
Tomcat 下载及安装配置
manongba · 970浏览 · 2019-05-13 21:03:56
什么是SpringBoot
iamitnan · 1086浏览 · 2019-05-14 22:20:36
分类专栏
最新发布
最热排行
0评论