Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:基础知识    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  Delphi判断字符是否是数字、大小写字母  
 
Delphi判断字符串是否是数字、字母、大小写字母

function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字
var
i:integer;
begin
result:=true; //设置返回值为 是(真)
Value:=trim(Value); //去空格
for i:=1 to length(Value) do //准备循环
begin
if not Value[i] in ['0'..'9'] then //如果Vaule的第i个字不是0-9中的任一个
begin
result:=false; //返回值 不是(假)
exit; //退出函数
end;
end;
end;

function IsUpperCase(Value:String):Boolean; //判断Vaule 是不是大写字母
var
i:integer;
begin
result:=true; //设置返回值为是
Value:=trim(Value); //去空格
for i:=1 to length(Value) do //准备循环
begin
if not Value[i] in ['A'..'Z'] then //如果Vaule的第i个字不是A-Z中的任一个
begin
result:=false; //返回值不是
exit; //退出函数
end;
end;
end;

function IsLowerCase(Value:String):Boolean; //判断Vaule 是不是小写字母
var
i:integer;
begin
result:=true; //设置返回值为是
Value:=trim(Value); //去空格
for i:=1 to length(Value) do //准备循环
begin
if not Value[i] in ['a'..'z'] then //如果Vaule的第i个字不是a-z中的任一个
begin
result:=false; //返回值不是
exit; //退出函数
end;
end;
end;

同理 如果想判断是不是字母的话

function IsEnCase(Value:String):boolean; //判断Vaule 是不是字母
var
i:integer;
begin
result:=true; //设置返回值为 是
Value:=trim(Value); //去空格
for i:=1 to length(Value) do //准备循环
begin
if (not Value[i] in ['A'..'Z']) or
(not Value[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('不是英文'); //返回 “是英文”

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站