unit Unit9;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;
type
{ TFormLogin }
TFormLogin = class(TForm)
ButtonLogin: TButton;
LabelLogin: TLabel;
LabelTest: TLabel;
LEditPassword: TLabeledEdit;
LEditUsername: TLabeledEdit;
procedure ButtonLoginClick(Sender: TObject);
private
{ private declarations }
procedure CheckUsername;
procedure CheckPassword;
public
{ public declarations }
end;
var
FormLogin: TFormLogin;
Username:array of string;
Password:array of string;
UsernameFile:textfile;
PasswordFile:textfile;
FileExists:integer;
implementation
{$R *.lfm}
uses
Unit1, Unit2;
procedure TFormLogin.ButtonLoginClick(Sender: TObject);
begin
CheckUsername();
end;
procedure TFormLogin.CheckUsername;
var
Linenumber:integer;
begin
linenumber:=0;
assignfile(UsernameFile, 'UsernameFile.txt');
try
reset(UsernameFile);
while not eof(UsernameFile) do
begin
linenumber:=linenumber+1; //LineNumber = 1,2,3,4 etc.
// readln(UsernameFile,Username[linenumber]); // Read into array
{ IF Username[linenumber] = LEditusername.Text THEN
begin
end;
}
readln(UsernameFile);
end;
CloseFile(UsernameFile);
except
showmessage('File Error'); //Dialog box
end;
setlength(username,linenumber);
assignfile(UsernameFile, 'UsernameFile.txt');
try
reset(UsernameFile);
while not eof(Usernamefile) do
begin
readln(UsernameFile,Username[linenumber]); // Read into array
IF Username[linenumber] = LEditusername.Text THEN
begin
Checkpassword();
end;
end;
CloseFile(UsernameFile);
except
showmessage('File Error'); //Dialog box
end;
end;
procedure TFormLogin.CheckPassword; // still in dev
var
Linenumber1:integer;
begin
linenumber1:=0;
assignfile(PasswordFile, 'PasswordFile.txt');
try
reset(PasswordFile);
while not eof(PasswordFile) do
begin
linenumber1:=linenumber1+1;
readln(PasswordFile, Password[linenumber1]);
IF LEditPassword.Text = Password[linenumber1] THEN
begin
showmessage('Correct');
FormLogin.Visible:=False;
FormMenu.Showmodal;
end
else
showmessage('Incorrect');
end;
closefile(Passwordfile);
except
ShowMessage('File Error - Please Check Your File');
end;
end;
end.