delphi密码三次验证问题

lable1.caption:='密码';edit1.text:='';button1.caption:='确定';edit2.text:='';： 当密码edit1.text输入正确 （假定正确密码是123abc） ，单击【确定】按钮，edit2.text显示“欢迎使用本系统” ；如果输入的密码错误，单击【确定】按钮，edit2.text显示“密码错，请注意大小写” ；如果连续三次输入错误密码，edit2.text显示红色文本“对不起，你无权使用” ，并且密码输入框和命令按钮不可用。

追问：你只说明了其一，但要完整。你的方法我都试了，但还是达不到理想效果。只有一个标签，两个文本框，一个按钮。如何实现三次是关键你的思路与我的想法一致，但执行结果却总是只要是错误的，都提示'对不起，你无权使用'

答案：if exit1.text='123abc' then 
  edit1.tag=0
else
  edit1.tag:=edit1.tag+1;
case edit1.tag of
0:edit2.text:='欢迎使用本系统';
3:edit2.text:='对不起，你无权使用';
else edit2.text:='密码错，请注意大小写';
end

其他：m=0;
while m<3 do
  begin
     if edit1.text ='123abc' then  break
     else m:=m+1;
  end; 在窗体里设置一个全局变量!
出错一次将全局变量加1,至到等于3的时候就在edit2.text显示红色文本“对不起，你无权使用”
然后把密码输入框edit1.enabled:=false;确定按钮比如为Button1那么,禁用button1.enabled:=false;就可以了! 在外面建立一个全局的i；
每点一次i=i+1；
每次判读i是否大于3；
大于了edit2.text显示红色文本“对不起，你无权使用”

上一个：delphi 正则表达式过滤字符串
下一个：delphi教程，找到的都是对英文delphi界面的中文教程，哪位有对汉化版的delphi教程？