Question

DELPHI中最简单的密码判断

我是想这样做，双击一张图片后，强出一个对话框，要求输入密码，密码是我在程序里预设的（比如说123456789）如果要是在对话框里输入的是123456789的话，那就通过，就可以显示另外一个窗口（比如说form3）如果不对的话，则停留在form2并提示密码错误。。。。请各位给出详细的程序。。。。谢谢了。因为我是个纯纯的新手，刚刚接触，什么都还不懂，请各位不要说这么简单的东西都不会。。。。直接给代码就好了，谢谢大家！！！！

Answer 1

提交密码的按钮事件中写下面的东西
begin
if edtPwd.Text = '123456789' then//edtPwd为密码框的名字，把PasswordChar设置为*就可以了
begin
form3 := TForm3.Create;
form3.Show;//模态窗体用ShowModal;
end;
end;

Answer 2

if edit1.text='123456789' then
begin
FORM2.CLOSE;
FORM3=Tform3.create;
form3.showmodal;
end
else
begin
showmessage('密码错误1');
form2.edit1.text.setfocus;
end;

Answer 3

if (edit1.text='12345678') then
begin
form2.hide;
form1.hide
form3.show;
end
else
showmessage('密码错误');

Answer 4

在软件登陆的时候我设置了个密码判断，如果该密码只要是个8位纯数字就允许给你一个最简单的算法 procedure ButtonClick(Sender:TObject); var i: