Edit şifre gizleme

[ahmetb]

Admin paneline sadece yetkisi olan kişiler giriş yapabiliyor. 
Adminin şifresini editde *** olarak gösteriyorum. Buraya kadar sorun yok. 
Edit.text admin şifresi *** iken kullanıcı adını değiştirip yeniden bir kullanıcı kaydettiğimde yeni oluşturduğum kullanıcıyı listwievde seçtiğimde dolaylı olarak admin şiftesi ortaya çıkıyor bu durumu nasıl çözerim?

procedure TForm3.ListUserSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  if ListUser.Selected <> Nil then
  begin
    if Pos(ListUser.Selected.Subitems[0], 'Administrator') > 0 then
    begin
      EditUserPassword.PasswordChar := '*';
     EditUserPassword.Text := ListUser.Selected.Subitems[1];
    end
    else
    begin
      EditUserPassword.PasswordChar := #0;
      EditUserPassword.Text := ListUser.Selected.Subitems[1];
  end;
  end;
end;

[adelphiforumz]

procedure TForm3.ListUserSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  EditUserPassword.Text := ''; // işinizi çözmüyormu yoksa konuyu yanlışmı anladım
 if ListUser.Selected <> Nil then
 begin
   if Pos(ListUser.Selected.Subitems[0], 'Administrator') > 0 then
   begin
     EditUserPassword.PasswordChar := '*';
    EditUserPassword.Text := ListUser.Selected.Subitems[1];
   end
   else
   begin
     EditUserPassword.PasswordChar := #0;
     EditUserPassword.Text := ListUser.Selected.Subitems[1];
 end;
 end;
end;

[ahmetb]

Sanırım yanlış anladınız, edit içinde admin şifresi **** iken şifrede değişiklik yapmadan yeni kullanıcı kaydettiğimde var olan admin **** şifresi yeni oluşturulan kullanıcının şifresi oluyor fakat bu şifrede görünür hale geldiğinden doğal olarak admin şifresi ortaya çıkıyor.

[adelphiforumz]

(29-01-2019, Saat: 13:53)ahmetb Adlı Kullanıcıdan Alıntı: Sanırım yanlış anladınız, edit içinde admin şifresi **** iken şifrede değişiklik yapmadan yeni kullanıcı kaydettiğimde var olan admin ****  şifresi yeni oluşturulan kullanıcının şifresi oluyor fakat bu şifrede görünür hale geldiğinden doğal olarak admin şifresi ortaya çıkıyor.

Fikir olarak yeni kullanıcı dediğinizde edit alanını önce boşaltın böylece ortada şifre kalmamış olacaktır.
Sonuç olarak yeni kullanıcı yeni şifre demektir

[ahmetb]

Neyse ya sanırım ben anlatamadım yada siz anlamadınız.

[Tuğrul HELVACI]

(29-01-2019, Saat: 01:21)ahmetb Adlı Kullanıcıdan Alıntı: Admin paneline sadece yetkisi olan kişiler giriş yapabiliyor. 
Adminin şifresini editde *** olarak gösteriyorum. Buraya kadar sorun yok. 
Edit.text admin şifresi *** iken kullanıcı adını değiştirip yeniden bir kullanıcı kaydettiğimde yeni oluşturduğum kullanıcıyı listwievde seçtiğimde dolaylı olarak admin şiftesi ortaya çıkıyor bu durumu nasıl çözerim?

procedure TForm3.ListUserSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  if ListUser.Selected <> Nil then
  begin
    if Pos(ListUser.Selected.Subitems[0], 'Administrator') > 0 then
    begin
      EditUserPassword.PasswordChar := '*';
     EditUserPassword.Text := ListUser.Selected.Subitems[1];
    end
    else
    begin
      EditUserPassword.PasswordChar := #0;
      EditUserPassword.Text := ListUser.Selected.Subitems[1];
  end;
  end;
end;

EditUserPassword.PasswordChar := #0; atamasını neden yapıyorsunuz , özel bir sebebi var mı ?

[ahmetb]

Admin şifresi normal kullanıcılar tarafından görünmesin diye

[Tuğrul HELVACI]

(31-01-2019, Saat: 21:58)ahmetb Adlı Kullanıcıdan Alıntı: Admin şifresi normal kullanıcılar tarafından görünmesin diye

Hımm demek öyle   Peki PasswordChar'a #0 karakterini atadığınızda ne olduğunu gözlemlediniz mi ? Basit bir button'un altında bir deneyin, bakalım ne göreceksiniz.

[edo]

(30-01-2019, Saat: 00:46)ahmetb Adlı Kullanıcıdan Alıntı: Neyse ya sanırım ben anlatamadım yada siz anlamadınız.

Size hiç bir çıkarı olmadan yardım etmeye çalışan birine karşı üslubunuz hiç hoş değil, umarım siz de bunu fark edersiniz.