Question

delphi 检查字符是否是数字和字母的组合

delphi 检查字符是否是数字和字母的组合

Answer 1

给你个例子:procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text;
try
strtoint(str);
showmessage('由数字组成！');
except
if str=uppercase(str) then
showmessage('由大写字母组成！')
else
if str=lowercase(str) then
showmessage('由小写字母组成！')
else
showmessage('由数字和字母混合组成')
end;
end;

Answer 2

***********************检测函数：function MyCheck(str:string):integer;
var
i: integer;
zm,sz: integer;
begin
Result := 0;
zm := 0;
sz := 0;
for i:=1 to Length(Str) do
begin
if (Str[i] in ['A'..'Z','a'..'z']) then
zm := 1;
if (Str[i] in ['0'..'9']) then
sz := 1;
end;
if zm = 0 then
Result := 1;
if sz = 0 then
Result := 2;
if (zm=1) and (sz=1) then
Result := 3;
end;***************************调用举例：
procedure TForm1.Button1Click(Sender: TObject);
var
val:integer;
begin
val := MyCheck(Trim(Edit1.Text ));
if val = 0 then
ShowMessage('执行发生错误');
if val = 1 then
ShowMessage('无字母');
if val = 2 then
ShowMessage('无数字');
if val = 3 then
ShowMessage('同时包含有字母和数字');
end;************************

Answer 3

function IsRight(s:String):Boolean;var i:Integer;
begin Result:=True; for i:=1 to Length(s) do begin if not (s[i] in ['a'..'z','A'..'Z','0'..'9']) then begin Result:=False; Break; end; end;end;