delphi怎么判斷字符串是否為純字母組合

本文小編為大家詳細(xì)介紹“delphi怎么判斷字符串是否為純字母組合”，內(nèi)容詳細(xì)，步驟清晰，細(xì)節(jié)處理妥當(dāng)，希望這篇“delphi怎么判斷字符串是否為純字母組合”文章能幫助大家解決疑惑，下面跟著小編的思路慢慢深入，一起來學(xué)習(xí)新知識(shí)吧。

代碼

function IsEnCase(Vaule:String):boolean; //判斷字符串是否為純字母組合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //準(zhǔn)備循環(huán)
begin
if ( Vaule[i] in ['A'..'Z']) or ( Vaule[i] in ['a'..'z']) then //如果Vaule的第i個(gè)字不道是A-Z或者a-z中的任一個(gè)回
begin
result:=true; //返回值 不是
end
else
begin
result:=false; //設(shè)置返度回值為 是
exit;
end;
end;
end;

Delphi判斷字符串是否是數(shù)字、字母、大小寫字母

function IsNumberic(Vaule:String):Boolean;   //判斷Vaule是不是數(shù)字
var
i:integer;
begin
result:=true;   //設(shè)置返回值為 是（真）
Vaule:=trim(Vaule);  //去空格
  for i:=1 to length(Vaule) do  //準(zhǔn)備循環(huán)
    begin
      if not (Vaule[i] in ['0'..'9']) then  //如果Vaule的第i個(gè)字不是0-9中的任一個(gè)
        begin
          result:=false;  //返回值 不是（假）
          exit;  //退出函數(shù)
        end;
    end;
end;

function IsUpperCase(Vaule:String):Boolean;   //判斷Vaule 是不是大寫字母
var
i:integer;
begin
result:=true;  //設(shè)置返回值為 是
Vaule:=trim(Vaule);   //去空格
  for i:=1 to length(Vaule) do   //準(zhǔn)備循環(huán)
    begin
      if not (Vaule[i] in ['A'..'Z']) then  //如果Vaule的第i個(gè)字不是A-Z中的任一個(gè)
        begin
          result:=false;  //返回值 不是
          exit;  //退出函數(shù)
        end;
    end;
end;

function IsLowerCase(Vaule:String):Boolean;  //判斷Vaule 是不是小寫字母
var
i:integer;
begin 
result:=true;   //設(shè)置返回值為 是
Vaule:=trim(Vaule);   //去空格
  for i:=1 to length(Vaule) do   //準(zhǔn)備循環(huán)
    begin
      if not (Vaule[i] in ['a'..'z']) then   //如果Vaule的第i個(gè)字不是a-z中的任一個(gè)
        begin
          result:=false;   //返回值 不是
          exit;   //退出函數(shù)
        end;
    end;
end;

同理 如果想判斷是不是字母的話

function IsEnCase(Vaule:String):boolean;    //判斷Vaule 是不是字母
var
i:integer;
begin 
result:=true;   //設(shè)置返回值為 是
Vaule:=trim(Vaule);   //去空格
  for i:=1 to length(Vaule) do   //準(zhǔn)備循環(huán)
    begin
      if (not (Vaule[i] in ['A'..'Z'])) or
         (not (Vaule[i] in ['a'..'z'])) then   //如果Vaule的第i個(gè)字不是A-Z或者a-z中的任一個(gè)
        begin
          result:=false;   //返回值 不是
          exit;   //退出函數(shù)
        end;
    end;
end;

讀到這里，這篇“delphi怎么判斷字符串是否為純字母組合”文章已經(jīng)介紹完畢，想要掌握這篇文章的知識(shí)點(diǎn)還需要大家自己動(dòng)手實(shí)踐使用過才能領(lǐng)會(huì)，如果想了解更多相關(guān)內(nèi)容的文章，歡迎關(guān)注億速云行業(yè)資訊頻道。