Как сделать проверку корректности пароля?

@KelleR · Регистрация: 24.06.2013

Author24 — интернет-сервис помощи студентам

Здраствуйте !

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

Суть в чем, пишу 1 раз неправильный пароль, пишер Try Again. Но когда после этого пишу правильный все работает,только текст Try Again Остается. Что сделать чтобы текст сменился на Well Done ! ?

Сделал if в repeat не помогло

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
begin
  repeat
    begin
 if edit1.Text ='Password'
 then
  begin
   label1.Caption:=('All ok');
   edit2.Visible:=true;
   edit1.Clear;
 end;
 if edit1.text <>('Password') then begin
   label1.caption:=('Try again');
   edit1.clear;
 end;
end;
 
until edit1.text <> ('Password');
 
end;
 
end.

@Ev1l · 24.06.2013, 21:25

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
begin
  repeat
 if edit1.Text ='Password'
 then
  begin
   label1.Caption:=('All ok');
   edit2.Visible:=true;
   edit1.Clear;
  end else
  begin
   label1.caption:=('Try again');
   edit1.clear;
  end;
 
until edit1.text <> ('Password');
 
end;
 
end.

так проверьте, у вас после первого условия стирает содержимое эдита и сразу соответствует второму условию...

@MrOnlineCoder · 24.06.2013, 21:31

Вот сделал код попроще, но может у вас задача сделать проверку с циклом.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Caption = 'Password' then showmessage('All ok') //Или label1.caption:='all ok' else showmessage('Try again!');
end;

@KelleR · 25.06.2013, 08:51 **[ТС]**

Спасибо за ответы. Но разобрался уже , написал continue в 1 условии

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
begin
  repeat
    begin
 if edit1.Text ='Password'
 then
  begin
   label1.Caption:=('All ok');
   edit2.Visible:=true;
   edit1.Clear;
   continue;
 end;
 if edit1.text <>('Password') then begin
   label1.caption:=('Try again');
   edit1.clear;
 end;
end;
 
until edit1.text <> ('Password');
 
end;
 
end.

Но есть другой вопрос. Есть ли команда чтобы условие не проверяло верхний/нижний регистр символов ? Или я должен создать еще 1 условие ?

@Ev1l · 25.06.2013, 10:18

так проще, щас проверил, цикл на кнопке будет бесконечным, если правильно выставить условие

и он не имеет смысла, т.к. на время выполнения цикла вы блокируете работу с остальной программой, тоесть значение условия цикла не меняется в процессе работы(тоесть меняется но только очистка поля ввода, после первой очистки цикл должен зависать), так как я полагаю на выходе из условия должно стоять "до тех пор пока edit1.text не равно 'password'"

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text = 'Password' then
  begin
    label1.Caption:=('All ok');
    edit2.Visible:=true;
  end
  else label1.caption:=('Try again');
edit1.clear;
end;

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

:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
repeat
if not(InputQuery('Pass','Enter pass',s)) then exit
else
if ansilowercase(s)<>'привет' then showmessage('wrong');
until ansilowercase(s)='привет';//ansiLowerCase делает все строчные символы строки прописными
Edit1.Visible:=true;
end;

@KelleR · 25.06.2013, 17:41 **[ТС]**

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

так проще, щас проверил, цикл на кнопке будет бесконечным, если правильно выставить условие

и он не имеет смысла, т.к. на время выполнения цикла вы блокируете работу с остальной программой, тоесть значение условия цикла не меняется в процессе работы(тоесть меняется но только очистка поля ввода, после первой очистки цикл должен зависать), так как я полагаю на выходе из условия должно стоять "до тех пор пока edit1.text не равно 'password'"

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text = 'Password' then
  begin
    label1.Caption:=('All ok');
    edit2.Visible:=true;
  end
  else label1.caption:=('Try again');
edit1.clear;
end;

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

:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
repeat
if not(InputQuery('Pass','Enter pass',s)) then exit
else
if ansilowercase(s)<>'привет' then showmessage('wrong');
until ansilowercase(s)='привет';//ansiLowerCase делает все строчные символы строки прописными
Edit1.Visible:=true;
end;

Спасибо большое ! Я просто новичок, я даже inputquery незнал

. Вопросик что за 's' в коде ? ( (s) ,s ))

@Ev1l · 25.06.2013, 17:56

строка в которую помещается текст введеный в inputquery

@Ev1l 134 / 133 / 22 Регистрация: 29.08.2012 Сообщений: 353
	25.06.2013, 17:56	7
	строка в которую помещается текст введеный в inputquery 0