Зацикливание программы

[Arcanum]

Доброго времени суток. У меня такая проблема, есть программа каторая при введении неверного пароля должна выдавать сообщение "у вас осталось 2 попытки", при следующем неверном введении "у вас осталось 1 попытка" при третьем программа закрывается. Почему то происходит зацикливание. Объясните пожалуйста почему.
Листинг программы:

procedure TForm6.Button1Click(Sender: TObject);
var
k:real;
begin
Form6.Color:=clLime;
  if edit1.text='xxx'
   then  begin
     Form6.Color:=clRed;
     Label1.Caption:='Добро пожаловать';
     edit1.Enabled:=false;
      end
      else
        begin
        ShowMessage('Пароль введен неверно');
        Edit1.Text:='';
        Edit1.SetFocus;
      k:=k+1;
      if k=1 then ShowMessage('У вас осталось 2 попытки');
      if k=2 then ShowMessage('У вас осталось 1 попытки');
      if k=3 then Form6.close;


   end;

end;

procedure TForm6.Button2Click(Sender: TObject);
begin
  form6.close;
end;

procedure TForm6.FormCreate(Sender: TObject);
var
k:real;
begin
  k:=0;
end;


end.

[MaxNik2009]

Вынеси переменную K за процедуры, т.е. сделай ее глобальной.

[xakkkkker]

Во первых К надо объявить глобально, а не локально как ты объявил.
И во вторых старайся для счетчика использовать целый тип (integer).

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  k:integer;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color:=clLime;
if edit1.text='xxx'
then begin
Form1.Color:=clRed;
Label1.Caption:='Добро пожаловать';
edit1.Enabled:=false;
end
else
begin
ShowMessage('Пароль введен неверно');
Edit1.Text:='';
Edit1.SetFocus;
k:=k+1;
if k=1 then ShowMessage('У вас осталось 2 попытки');
if k=2 then ShowMessage('У вас осталось 1 попытки');
if k=3 then Form1.close;
end;

end;

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

end.

[p51x]

k должна быть глобальной в вашем коде, иначе каждый раз будет обнулятся.

[xakkkkker]

Сообщение от p51x

k должна быть глобальной в вашем коде, иначе каждый раз будет обнулятся.

Как она может обнуляться каждый раз она только при создании формы обнуляется

[Arcanum]

Благодарю ребята. У меня насчет глобальной переменной была идея,но почему то ей не воспользовался. Теперь все работает. Еще раз спасибо всем

[p51x]

procedure TForm6.Button1Click(Sender: TObject);
var
k:real;

procedure TForm6.FormCreate(Sender: TObject);
var
k:real;

Разные k...

[Grag]

Вот, все легко и просто:

var
  PswLogFrm: TPswLogFrm;
  Reg:TRegistry;
  Log,Psw:string;
  Count:byte;


procedure TPswLogFrm.BtnOkClick(Sender: TObject);
begin
  SetWindowPos( Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
                                  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
  if (Log<>edLogin.Text) or (Psw<>edPsw.Text) then
    begin
      MessageBox(0,'Неверный логин или пароль.','Ошибка ввода!',mb_Ok);
      edLogin.Text:='';
      edPsw.Text:='';
      edLogin.SetFocus;
      Inc(Count);
      if Count<3
        then
          begin
            StatusBar.Panels[0].Text:=' Осталось попыток - '+IntToStr(3-Count);
            Application.ProcessMessages;
            Exit
          end
        else Application.Terminate
    end;
  MainFrm.Visible:=true;
  PswLogFrm.Visible:=false;
end;