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(' 不是英文');   //返回 “是英文”