My Visual Database — Запомнить последний введенный логин?

Re: Запомнить последний введенный логин?

null@example.com (senseyesenseye1983) — Tue, 05 Oct 2021 13:41:03 +0000

Подскажите а как запомнить при входе Логин и пароль когда при этрм сам логин вводится в Text ? Тоесть на дее мы имеем 2 текстовых поля логина и пароля ставим галочку и при следующем запуске запоминаетcя

Re: Запомнить последний введенный логин?

null@example.com (Raspr) — Thu, 21 Sep 2017 08:14:52 +0000

Отлично, спасибо!

Re: Запомнить последний введенный логин?

null@example.com (DriveSoft) — Thu, 21 Sep 2017 08:07:03 +0000

вместо

    frmLogin.cbLogin.dbItemID := reg.ReadInteger('Login');

попробуйте

    if Reg.ValueExists('Login') then frmLogin.cbLogin.dbItemID := reg.ReadInteger('Login');

Запомнить последний введенный логин?

null@example.com (Raspr) — Thu, 21 Sep 2017 06:35:50 +0000

По аналогии с запоминанием некоторых данных в соседней ветке, решил "запоминать" последний логин. Все работает, за исключением ошибки, когда ключа еще нет. Помогите, пожалуйста, избежать?

procedure frmLogin_OnShow (Sender: string; Action: string);
var
    reg: TRegistry;
begin
    reg := TRegistry.Create;
    reg.Access := KEY_ALL_ACCESS;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('software\Test_project',true);
    frmLogin.cbLogin.dbItemID := reg.ReadInteger('Login');
    reg.CloseKey;
    reg.Free;
    if frmLogin.cbLogin.dbItemID <> -1 then frmLogin.edPassword.SetFocus;
end;

procedure frmLogin_btOk_OnClick (Sender: string; Action: string);
var
    reg: TRegistry;
begin
    reg := TRegistry.Create;
    reg.Access := KEY_ALL_ACCESS;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('software\Test_project',true);
    reg.WriteInteger('Login', idUser);
    reg.CloseKey;
    reg.Free;
end;