在软件登陆的时候我设置了个密码判断,如果该密码只要是个8位纯数字就允许登陆,如果不是就关闭程序。请问判断EDIT1.text里是否是纯6位的数字代码应该怎么写啊。谢谢了
请写出代码,分数等你拿!
參考答案:给你一个最简单的算法
procedure ButtonClick(Sender:TObject);
var
i:Integer;
begin
if Length(Edit1.Text)<>6 then
Close;//长度不是6,退出
try
i:=StrToInt(Edit1.Text);
except
Close;//不是数字,退出
end;
end;