А вот так разве не проще?
Код:
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.: и кто Вас учил манере оформления кода?
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|