Question

delphi怎样 检查一个字符串必须是否是数字和字母的组合！谢谢！

delphi怎样 检查一个字符串必须是否是数字和字母的组合！谢谢！

Answer 1

function ifhasnumandstr(str:string):boolean;
begin
result:=false;
for i:=0 to 9 do
begin
if pos(inttostr(i),str)<0 then break;
for j:=65 to 91 do
if pos(chr(j),uppercase(str))>0 then
begin
result:=true;
break;
end;
end;
end;

Answer 2

查看每个字符的ascii码是不是数字或字母

Answer 3

function IsPureNumberOrAlpha( s : string ) : Boolean;
var
i : Integer;
begin
Result := False;
for i := 1 to Length( s ) do
case s[i] of
'0'..'9', 'A'..'Z', 'a'..'z':
begin
end;
else
Exit;
end;
Result := True;
end;