Setingan database di registry

Nih saya ingin berbagi code lagi tentang bagaimana menyimpan setingan database di registry,,mungkin buat para delphier yang sudah jago" ato bisa disebut juga para master delphi sudah tahu coding seperti ini.
Ya tidak  jauh beda lah menurut saya dengan menyimpan di file (.ini)
Ini dia Potongan coding''y....

Uses Registry

Tambahkan Registry pada Uses terlebih dahulu. untuk coding dibawa ini adalah untuk menyimpan settingan ke Registry.

=>Menyimpan Settingan Database
procedure TForm1.BitSimpanClick(Sender: TObject);
begin
try
// Membuat key baru pada registry
Reg.OpenKey('\Setingan', true);
// Menulis data string
Reg.WriteString('Host', EHost.Text);
Reg.WriteString('Port', EPortname.Text);
Reg.WriteString('User', Euser.Text);
Reg.WriteString('Pass', Epass.Text);
Reg.WriteString('Database', EDBname.Text);
finally
Reg.CloseKey;
end;
end;

Dan untuk memanggil settingannya yaitu,simpan coding pada event OnCreate pada form atau OnShow seperti contoh dibawah ini,maka settingan yang sudah disimpan di registry akan dibaca.

=>ONCREATE FORM
procedure TForm1.FormCreate(Sender: TObject);
begin
Reg := Tregistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
end;

=>Memanggil Settingan database
try
try
Reg.OpenKey('\Setingan', false);
Edit1.Text := Reg.ReadString('Host');
ComboBox1.Text := Reg.ReadString('Port');
Edit2.Text := Reg.ReadString('User');
Edit3.Text :=Reg.ReadString('Pass');
Edit4.Text := Reg.ReadString('Database');
except on ERegistryException do
ShowMessage('Gagal membaca settingan…');
end;
finally
Reg.CloseKey;
End;

 Nah cuma gitu doank mudah sekali bukan,gak ribet,....
Semoga bermanfaat..... !!!

Posted by Antas Delphi on - Rating: 4.5

Title : Setingan database di registry
Description : Nih saya ingin berbagi code lagi tentang bagaimana menyimpan setingan database di registry,,mungkin buat para delphier yang sudah jago...