Вход под паролем

[VinDiz]

Программа написана правильно не не могу понять чего выбивает! Исправте ошибку плз! вот архив

[Stilet]

Чего выбивает? Куда выбивает?
form1.close; четко говорит - Закрыть главную форму. А при закрытии главной формы завершается приложение.

[Tanzor69]

про "выбивает" непонятно. Править надо конструкцию if else и т.д. во второй форме, из-за этого неправильно работает

[Tanzor69]

Вот что я написал, думаю вы этого хотели добиться:

procedure TForm2.BitBtn1Click(Sender: TObject);
var d,d1,d2,a,a1,a2: string; f: textfile;
begin
d:= string (edit1.Text);
a:= string (edit2.text);
assignfile(f, 'pass.txt');
reset(f);
readln(f, d1);
readln(f, a1);
readln(f, d2);
readln(f, a2);
//closefile(f);
if (d='') or (a='') then
showmessage ('Одно из полей незаполнено' +#13#10+ 'попробуйте снова!')
else if (d=d1) and (a=a1) then begin
showmessage('Вы вошли как администратор');
form3.show;
end
else if (d=d2) and (a=a2) then begin
showmessage('Вы вошли как официант');
form3.Show;
end
else begin
showmessage('Вы ввели неправильно логин или пароль! Попробуйте еще раз');
end;
closefile(f);
//form2.Close;
//form1.close;
end;

//form2.Close;
//form1.close;

это закомментил, потому что не понимаю, зачем и в каком случае надо закрывать формы 1 и 2

[VinDiz]

О большое спасибо!!!
readln(f, d1);
readln(f, a1);
readln(f, d2);
readln(f, a2);
это циклом можно делать(как)? потому что если в файле будет 100 пользователей то это ведь придется делать очень много переменных и будит громозкий код!
Спасибо за исправление!

[Tanzor69]

да,конечно можно все сделать в цикле,если несрочно,то я вечером сегодня посмотрю,и напишу как сделать

[DiemonStar]

procedure TForm2.BitBtn1Click(Sender: TObject);
var d,d1,a,a1: string; f: textfile; Match_1, Match_2:boolean;
begin
d:= string (edit1.Text);
a:= string (edit2.text);
assignfile(f, 'pass.txt');
reset(f); 
Match_1 := false; Match_2 := false;
if (d='') or (a='') then
showmessage ('Одно из полей незаполнено' +#13#10+ 'попробуйте снова!')
else
begin
 while not Eof(F) or Match_1 or Match_2 do
  begin   
    readln(f, d1);
    readln(f, a1);
    Match_1 := d = d1;
    Match_2 := a = a1;
  end;
  If Match_1 then
    if Match_2 then
      begin
        showmessage('Вы вошли как ' + d);
        form3.Show;
      end
     else
      showmessage('Пароль введён неверно! Попробуйте еще раз')
   else    
    showmessage('Данный пользователь не существует');
end;
closefile(f);
//form2.Close;
//form1.close;
end;

вот так будет с циклом...

[Tanzor69]

и как, работает?