Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- TUsers = record
- Username: String [10];
- Password: String [15];
- end;
- TfrmLogin = class(TForm)
- lblUsername: TLabel;
- lblPassword: TLabel;
- edtUsername: TEdit;
- edtPassword: TEdit;
- btnSubmit: TButton;
- procedure btnSubmitClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- frmLogin: TfrmLogin;
- LoginComplete : Boolean ;
- UserFile : file of TUsers ;
- Users: TUsers ;
- Position : Integer ;
- implementation
- {$R *.dfm}
- procedure TfrmLogin.btnSubmitClick(Sender: TObject);
- Var Position : Integer ;
- UserPassword : String ;
- begin
- Assignfile(UserFile, 'Password.dat') ;
- reset (UserFile) ;
- Position := StrToInt(edtUsername.Text) ;
- seek (Userfile, Position) ;
- read(Userfile, Users);
- userpassword := String(Users.Password);
- if edtPassword.Text = userpassword then
- begin
- Showmessage ('congrats');
- LoginComplete := True;
- close;
- end
- else
- showmessage ('sorry')
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement