Delphi는 문자열이 숫자, 대소문자, 소문자, 순자모로 구성되었는지 판단한다

 //           ，     
function IsNumberic(Vaule:String):Boolean;  
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;   
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; 
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;   
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;