字符串的判断问题!!!!!!!!!!!!!!!!!!!!!!!!????????????????

Question

字符串的判断问题!!!!!!!!!!!!!!!!!!!!!!!!????????????????请问怎样字符串中只包含  '0'..'9','a'..'z','A'..'Z'的字符????
请给出详细代码,感激万分!!!!!!!!!!!!!

Answer 1

function IsSimpleChar(var Str: String);
var
  Cnt: Integer;
begin
  Return := 0;
  for Cnt := 1 to Length(Str) do
  begin
    if (Str[Cnt] in ['0'..'9']) or (Str[Cnt] in ['a'..'z']
       or (Str[Cnt] in ['A'..'Z'] then 
       Continue
     else
     begin
       Return := -1;
       Break;
     end;  
  end;
end;
上面函数返回0表示常用字符，-1表示有其他字符