количество попыток входа в систему

[shananina-katya]

Добрые люди, помогите пожалуйста! Подскажите, что не так. После трех попыток входа пользователя в систему, необходимо вывести сообщение об ошибке и закрыть программу (в делфи).

for i:=0 to vhod.Count - 1 do
  if vhod.Strings[i] <> Edit5.Text+'-'+Edit2.Text then
  begin
  popitki:=popitki+1;
  if popitki > 3 then
  begin
  ShowMessage('Вы попытались войти в систему 3 раза!');
  Close;
  end;
  end;

где, соответственно Edit5.Text - это логин, а Edit2.Text - пароль. так же изначально переменной popitki было присвоено значение -1

ну а если не знаете, как исправить, то предложите свой вариант, как организовать только три попытки входа)

[BDA]

В событии создания формы: c:=0;
В событии нажатия кнопки:
	if vhod.Strings[i] <> Edit5.Text+'-'+Edit2.Text then
		inc(c);
	if c=3 then
	begin
		ShowMessage('Вы попытались войти в систему 3 раза!');
		Close;
	end;

[shananina-katya]

спасибо, но все равно не работает

[shananina-katya]

выдает ошибку, что индекс списка вне границ

[BDA]

Правильно
Что за индекс i (который я забыл выкинуть)? Для чего он нужен?
Приведите больший кусок кода.

Точнее, что такое vxod.strings?

[shananina-katya]

procedure TForm1.Button1Click(Sender: TObject);   // кнопка войти
var
   vhod:TStringList;
   data:TStringList;
   i:integer;
   dt: TDateTime;
begin
  dt:=now;
  data:=TStringList.Create;
  data.LoadFromFile('data1.dat');
  data.Add('Логин = '+Edit5.Text+ ';' + 'День и Время ='+DateTimeToStr(dt));
  data.SaveToFile('data1.dat');
  vhod:=TStringList.Create;
  vhod.LoadFromFile('data.dat');
  vhod.SaveToFile('data.dat');

  for i:=0 to vhod.Count - 1 do
  if vhod.Strings[i] = Edit5.Text+'-'+Edit2.Text then
  begin
   ShowMessage('Вы успешно авторизовались под: '+Edit5.Text+';'+'Время входа:'+DateTimeToStr(dt));
   Form2.show;
    exit;
  end;

  for i:=0 to vhod.Count - 1 do
  if vhod.Strings[i] <> Edit5.Text+'-'+Edit2.Text then
  begin
  popitki:=popitki+1;
  if popitki > 3 then
  begin
  ShowMessage('Вы попытались войти в систему 3 раза, попробуйте авторизоваться позднее!');
  Close;
  end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 popitki:=-1;
end;

такой достаточно?)
ну а vhod.strings это как раз переменная вбирающая в себя логин и пароль)

[BDA]

Окей, теперь понятно.
Объясните, зачем вам нужны эти 2 стриглиста (data и vxod)?

Наверное, вы хотите организовать лог пользователей (с попытками захода) и список для входа (разрешенные логины и пароли)?

[shananina-katya]

data и vhod это переменные прикрепленные к файлу, а вот второй вопрос я не очень поняла)

[shananina-katya]

стучите мне лучше в аську 412993756, там и пообщаемся)

[BDA]

Выложу сюда получившийся код. Вдруг кого-то заинтересует. Или ошибки поисправляете .