delphi中密码验证问题，请帮忙做一下做业。

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

答案：//窗体创建事件
var
  myflag: integer;
begin
  myflag:= 0; //次数变量, 初始为零
end;
  
//单击确定按钮事件
begin
  myflag:= myflag + 1; //单击一次, 增加1
  if myflag = 3 then
  begin
    Edit2.Text:= '对不起, 你无权使用';
    Edit2.Font.Color:= clRed; //不知道对不对, 思路是这样的.. ^^
    Exit;
  end;
  if Edit1.Text = '123abc' then
  begin
    Edit2.Text:= '欢迎使用本系统';
  end
  else
  begin
    Edit2.Text:= '密码错，请注意大小写';
    Edit1.SelText;
    Exit;
  end;
end;

其他：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 借见习书生代码改改。

unit Unit1;

inte易做图ce

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FLoginFlag: Integer;//登录错误次数
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FLoginFlag := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '123abc' then
  begin
    FLoginFlag := 0;
    Edit2.Text := '欢迎使用本系统';
  end
  else
  begin
    Inc(FLoginFlag);
    if FLoginFlag = 3 then
    begin
      Edit2.Text:= '对不起，你无权使用';
      Edit2.Font.Color := clRed;
      Edit1.Enabled := False;//禁用密码输入
      Button1.Enabled := False;//禁用登录按钮
    end
    else
    begin
      Edit2.Text:= '密码错，请注意大小写';
      Edit1.SetFocus;//将输入焦点定位到密码输入框
    end;
  end;
end;

end.

上一个：delphi教程，找到的都是对英文delphi界面的中文教程，哪位有对汉化版的delphi教程？
下一个：DELPHI ACCESS库 INSERT INTO 报错