защита форм паролем в Delphi

[TaYgA]

Спасибо за подсказку NeshSoft... Проблема стоит в том, что при загрузки файла чтение производится только первой строки. Чему она равна, то значение он и присваивает переменной "pass", хотя по коду программы "pass" равен второй строке ( в случае если пользователей несколько 4,6,8... строке)
{Test.org:
Login
Password
Login
Password
............
}
Как должен выглядить код, чтоб исправить эту ошибку!??!

[NeshSoft]

правильно, строчка, которая первая в файле - та и считывается...
смысл такой:

// пример файл Test.org:
//Login1
//Password1
//Login2
//Password2

AssignFile(myFile, 'Test.org');
Reset(myFile);

ReadLn(myFile, log1);//считается Login1
ReadLn(myFile, pass1);//считается Password1
ReadLn(myFile, log2);//считается Login2
ReadLn(myFile, pass2);//считается Password2

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

[TaYgA]

Этот способ работает... Вот что получается:

procedure TPasswordDlg.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
  Var myFile: TextFile;
      pass1,log1,pass2,log2: String;
begin
  AssignFile(myFile, extractfilepath(paramstr(0))+'test. org');
  Reset(myFile);
  ReadLn(myFile,log1);
  ReadLn(myFile, pass1);
  ReadLn(myFile,log2);
  ReadLn(myFile, pass2);
    if (Edit1.Text = log1) and (lowerCase(Password.Text) = pass1)
      then anClose:=true
    else
begin
  if (Edit1.Text = log2) and (lowerCase(Password.Text) = pass2)
    then CanClose:=true
  else Application.Terminate;
end;
CloseFile(myFile);
end;

В этом случае возникают другие проблемы... Пользователей может быть столько, сколько запесей в файле изначально т. е. файл с записями должен уже существовать и быть заполнен, необходимость формы "регестрация" отпадает т. к. log3 и pass3 проверяться уже не будет... А если в проверке логина и пароля сразу прописать проверку log3,pass3 и т. д. ( не создавая при этом запесей в файле {в файле две записи log1,log2,pass1,pass2}), то программа не запускается ссылаясь на процедуру кнопка "регестрация". К тому же в этом случае будет ограниченное колличество пользователей, а не n-ое количестов!!!

[NeshSoft]

Я Вам пытался объяснить каким образом считываются строчки из текстового файла.
Для того чтобы, было множество пользователей необходимо использовать динамические массивы. Можно создать два таких массива log и pass; можно один - двумерный с двумя строчками на логин и пароль; можно один массив, и в качестве типа данных указать ту структуру, что я приводил в самом начале. Вобщем вариантов масса...

Кроме того необязательно сразу считывать весь файл, можно считывать в цикле, т.е. считали 2 строки (логин и пароль), проверили, если не совпало с тем, что ввел пользователь - считали еще две строки... Вобщем вариантов уже 2*масса...

[TaYgA]

Я в Delphi новичёк плюс ещё и самоучка, и не совсем понимаю как это реалезовать... Приведите пример пожалуйсто!

[NeshSoft]

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

Я в Delphi новичёк плюс ещё и самоучка, и не совсем понимаю как это реалезовать... Приведите пример пожалуйсто!

пользуйтесь

procedure TPasswordDlg.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
  Var myFile: TextFile;
      pass,log,: String;
begin
  CanClose:=false;//пока запрещаем закрытие
  AssignFile(myFile, extractfilepath(paramstr(0))+'test. org');
  Reset(myFile);
  while not Eof(myFile) do //цикл будет до тех пор, пока не достигнем конца файла
      begin
      ReadLn(myFile,log);
      ReadLn(myFile, pass);
      if (Edit1.Text = log) and (lowerCase(Password.Text) = pass)
          then begin 
                 CanClose:=true;
                 breake; //прерываем цикл
                 end;
      end;

CloseFile(myFile);
if not CanClose then Application.Terminate;
end;

[TaYgA]

NeshSoft, большое спасибо за помощь!!!! Очень признателен