Прога с запросом имя пользователя, пароля..

[MNaz]

Главная форма: Form1
В событии

OnCreate

прописал

PasswordDlg.showmodal

На форме пароля 2 едита, кнопка "Вход"
Вот код на

FormCloseQuery

.. есть ли ошибка, и в чем?:

var a,b,st:string;
      stl: TStringList;
begin
  a:=Edit1.Text;          // записал имя в переменную
  b:=password.Text;    // записал пароль в переменную
  stl.Create;               // создал StringList
  stl.LoadFromFile('account\' + a + '.txt');   // открываю файл типа имя.txt
  st:=stl.Strings[0];    // считываю из файла 1 строку
  stl.Free;                 // чищу StringList
 if st=b then begin      // проверяю, ровна ли первая строчка паролю
CanClose:=true          // если ровна, то форму пароля можно закрыть
end
else                          // в других случаях
ShowMessage('Неверный логин/пароль') // соответственно сообщение
end;

Что не так.. если гдето банальная ошибка.. я не проффи)

[MNaz]

вроде все подробно описал.. выдает ошибку после нажатия ОК, чтото типа:
Project reised exception class EAccessViolation with message "Access violation in address (какойто там) in module Project1.exe ... Потом в коде подсвечивает строчку

end;

в коде

procedure TForm1.FormShow(Sender: TObject);
begin
passworddlg.showmodal;
end;

Посоветуйте что-то, или может переписать, не используя passwordDialog? Второй день над этим казалось бы простым кодом парюсь..

[Serge_Bliznykov]

100% Вы забываете, что прежде чем сделать passworddlg.ShowModal
нужно эту самую форму passworddlg предварительно СОЗДАТЬ!

[Mad_Cat]

stl:=Tstringlist.Create();

[Serge_Bliznykov]

stl:=Tstringlist.Create(self);

А!! ТОчно! TSTringList же не создаётся! а я проглядел ...

только надо так создавать:

  stl:=Tstringlist.Create();

to MNaz
это надо поставить вместо ошибочной строчки stl.Create; // создал StringList
объект ещё не создан, а Вы его методы пытаетесь вызвать...