Giriş Bilgilerini Kaydetme

[bnyamin86]

Arkadaşlar herkese merhaba hayırlı hafta sonları çalışmış olduğum iş yerinde sezon sonundan dolayı işler iyice hafifledi dolayısıyla bende tekrardan delphi projelerime devam etmeye başladım. Şu an bir projemin giriş kısmını çalışıyorum bir konuda takıldım ve siz değerli üstadlarımın yardımını bekliyorum. Aşağıda fotoğrafını paylaşmış olduğum kullanıcı giriş ekranında herşey gayet güzel çalışıyor ancak her girişte yeniden verileri ilgili alanlara doldurmam gerekiyor. Bende 1 adet checkbox koydum istiyorum ki checkbox dolu olduğunda bir daha ki sefere bilgiler hatırlansın ve ilgili alanlar dolu gelsin. Yardımlarınız için çok teşekkür ediyorum şimdiden herkese iyi çalışmalar.


   

[esistem]

Onay butonuna basıldığında Formdaki bilgileri bir ini dosyasına kaydedip, formun on show yada create olayında ini dosyadan okuyup editleri doldurmanız yeterlidir.

[cinarbil]

@esistem verdigi bilgiye alternatif olarak windows register  yazıp okuya bilirsin.
Aşağıda okuma yazma  kodları var.
Kullanımı
Geliştirerek paylaşmak size kaldı.

procedure Tgiris_frm.hatirlaClick(Sender: TObject);
begin
   Regdegeryaz('Kullanici', '','\Software\program_adi\KAPI\Ayarlar\');
   Regdegeryaz('Parola', '','\Software\program_adi\KAPI\Ayarlar\');
   Regdegeryaz('Yıl', '','\Software\program_adi\KAPI\Ayarlar\');
   Regdegeryaz('Tema', '-1','\Software\program_adi\KAPI\Ayarlar\');

if hatirla.Checked then
 begin
   Regdegeryaz('Kullanici', edit_kullaniciadi.Text,'\Software\program_adi\KAPI\Ayarlar\');
   Regdegeryaz('Parola', asciitohex(edit_kullanicisifresi.Text),'\Software\program_adi\KAPI\Ayarlar\');
   Regdegeryaz('Yıl', edit_calismayili.Text,'\Software\program_adi\KAPI\Ayarlar\');
   Regdegeryaz('Tema', inttostr(temaindex),'\Software\program_adi\KAPI\Ayarlar\');
 end;

end;

// Uses kısmına Registry ekleyin

procedure RegDegerYaz(const Anahtar, Deger,yol: String);
var
 r: tregistry;
begin
r := tregistry.Create;
 try

   r.RootKey := HKEY_CURRENT_USER;
   if r.OpenKey(yol, true) then
   begin
     r.WriteString(Anahtar, Deger);
   end;
 finally
   r.Free;
 end;
end;

function RegDegerOku(const Anahtar,yol: String): String;
var
 r: tregistry;
begin
 Result := '';
 r := tregistry.Create;
 try
   r.RootKey := HKEY_CURRENT_USER;
   if r.OpenKey(yol, false) then
   begin
     Result := r.ReadString(Anahtar);
   end;
 finally
   r.Free;
 end;

[Mr.Developer]

Merhaba,
Bu yöntem de bir alternatif olabilir.

[bnyamin86]

Sayın hocalarım cevaplarınız için çok teşeekkür ediyorum herbir öneri benim için çok değerli illaki işime yarayacak diğer arkadaşlara da yarayacağını düşünüyorum.Hepinize kolay gelsin iyi çalışmalar.