[wymkent]

авторизация пользователя так сказать=)
когда ввожу правильный логин пароль все работает а когда не правильный ничего не происходит

Код:

procedure TForm9.Button1Click(Sender: TObject);
var savetxt:TStringList;
    iterintcount:integer;

    logpas:string;
    begin
savetxt:=TStringList.Create;
savetxt.LoadFromFile(ExtractFilePath(application.ExeName)+'Пароль.txt');

   logpas:=edit1.Text+' '+edit2.Text;

for iterintcount:=0 to savetxt.Count -1 do
begin
   if logpas=savetxt[iterintcount] then
   begin
   showmessage('Првильно');
   edit1.Clear;
   edit2.Clear;
     end

   else
      //showmessage('Пароль или логин введен не верно!');
   end;

//showmessage('Пароль или логин введен не верно!'); когда убираю (//) все запускается ввожу пароль логин первый showmessage говорит все верно жму ок и тут же появляется второй showmessage в котором написано что пароль или логин не верный.......

[Kailon]

А вот так разве не проще?

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  SavePwd: TStringList;
  LogPwd:string;
begin
  SavePwd := TStringList.Create;
  SavePwd.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Пароль.txt');
  LogPwd := Edit1.Text;
  if LogPwd = SavePwd[0] then
    begin
      //обрабатываем правельный пароль
      ShowMessage('Пароль верный!');
    end
  else
    begin
      //обрабатываем НЕправельный пароль
      ShowMessage('Пароль НЕверный!');
    end;
end;

P.S.: и кто Вас учил манере оформления кода?