Question

DELPHI中如何判断EDIT1.text里是一个8位的纯数字密码

在软件登陆的时候我设置了个密码判断，如果该密码只要是个8位纯数字就允许登陆，如果不是就关闭程序。请问判断EDIT1.text里是否是纯6位的数字代码应该怎么写啊。谢谢了

请写出代码，分数等你拿！

Answer 1

给你一个最简单的算法
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;

Answer 2

逐位检查，我的思路是检查每个字符的Ascii码，一旦超过0~9这个字符范围可以视为非纯数字。