Delphi判断字符串是否是数字、字母、大小写字母 | 您所在的位置:网站首页 › delphi英文转中文 › 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; 下面是调用方法: if IsNumberic(' 嘿嘿') then showmessage(' 是数字') else showmessage(' 我不是数字'); //返回 “我不是数字” if IsUpperCase(' HAHA') then showmessage(' 是大写字母') else showmessage(' 不大写字母'); //返回 “是大写字母” if IsLowerCase(' abcdEfg') then showmessage(' 是小写字母') else showmessage(' 不是小写字母'); //返回 “不是小写字母” if IsEnCase(' abcdEfg') then showmessage(' 是英文 ') else showmessage(' 不是英文'); //返回 “是英文” |
今日新闻 |
推荐新闻 |
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 |