Delphi Password Loading To Text Box

Cena_54

Apr 8 2006, 06:15 PM

As you can see from this image, I have a listbox which loads in the usernames from a .DAT file, which has been encrypted and decrypted using the parsestring function.

However, I cannot get the type of user (e.g. Administrator, Supervisor, Guest) to load into the Combobox below, and the password of the user selected to load into the password Textbox. I have a procedure called:

CODE

[b]procedure[/b] LoadPasswordFile;

and in this code there is a procedure called:

CODE

[b]procedure[/b] DisplayRecord;

and the code for that is as follows:

CODE

// Display the record.
     FrmOptions.LstUsers.ItemIndex      := StrToInt (s_user[i_currrec]);
     FrmOptions.CmbLoginType.ItemIndex := StrToInt (s_type[i_currrec]);
     FrmOptions.TxtPassword.Text := s_password[i_currrec];

The code for loading the password file is below also if that helps:

CODE

/ Start to read the records into the arrays.
          while not eof(f_handle) do
          begin
               Readln(f_handle, s_inputtext);

                // Check that the line contains data.
               if s_inputtext > '' then
               begin
                    parsestring(s_inputtext, temp_string);
                    s_user[i_norecords] := decrypt(temp_string, length(temp_string));
                    FrmOptions.LstUsers.Items.Add(s_user[i_norecords]);
                    parsestring(s_inputtext, temp_string);
                    s_type[i_norecords] := decrypt(temp_string, length(temp_string));
                    s_password[i_norecords] := Decrypt(Copy(s_inputtext, 2,
                                               Length(s_inputtext) - 2),
                                               Length(Copy(s_inputtext, 2,
                                               Length(s_inputtext) - 2)));
               end;

Thanks a lot if anyone can help me!

DeveloperX

Apr 11 2006, 06:18 AM

QUOTE

Delphi Password Loading To Text Box

For showing password at TextBox you should use * - it's "password char" field in object inspector.

ADD REPLY / Got an Opinion!	Remove these ADs!	RAPID SEARCH!	Free Web Hosting	[X]
Express your Opinions, Thoughts or Contribute more info. to help others. Ask your Doubts & Queries to get answers, So that "Together We can help others!"	Register FREE for AD-FREE forum, Create your own topics, Ask Questions, track topics, setup subscriptions & notifications and Get a Free Website w/ Email and FTP.		500MB Space No Ads, CPanel, FTP, PHP, MySQL, EMails - 100% FREE