Membuat Config Save Dan Load Dengan Delphi

Dengan keadaan cuaca yang tidak mendukung untuk bermain keluar rumah kemudian saya coba nyalain PC dan saya lanjut bermain-main dengan delphi,untuk kali ini saya ingin mencoba bagaimana cara membuat sebuah config yang mana tujuan pembuatan config ini adalah supaya aplikasi yang dibuat bisa menyimpan dan meload atau menampilkan kembali apa yang telah kita seting.

Sehingga kita tidak usah repot lagi untuk menseting ulang apa yang telah kita coba seting jadi tinggal kita save dan sewaktu mau menggunakannya kembali kita tinggal klik load.Untuk itu maka postingan kali ini saya beri judul dengan Membuat Config Save Dan Load.

Langkah Pembuatan

Baiklah mungkin sudah jelas tujuan postingan untuk kali ini supaya tidak panjang lebar ceritanya saya akan coba langsung ke langkah pembuatan,biasa pertama buka aplikasi delphinya kemudian pada form yang baru saya coba tambahkan beberapa komponen,yang mana komponen yang saya coba tambahkan adalah:

1. 2 Buah Komponen Label.

2. 2 Buah Komponen Edit.

3. 2 Buah Komponen Button.

4. 1 Buah Komponen Checkbox.

5. 2 Buah Komponen Radiobutton.

Kemudian saya coba posisikan atau mengatur tata letak masing-masing komponen tersebut bagaimana supaya kelihatan tampak bagus,dan saya coba posisikan seperti pada gambar dibawah ini

Pengaturan Posisi Komponen

Mengganti Properties Caption Dan Text Komponen 

Kemudian pada masing-masing komponen pada object inspetor saya coba ganti seperti:

- komponen label saya ganti captionnya dengan Nama dan No HP kemudian 

- komponen button saya coba ganti captionnya dengan SAVE dan LOAD dan untuk 

- komponen edit saya coba ganti properties Text nya dengan Nama dan No Handphone kemudian untuk 

- komponen checkbox dan radiobutton saya coba ganti captionnya dengan Jenis Kelamin, Laki-laki dan Perempuan ini hanya untuk experimen saya aja.

Pengkodingan

Setelah itu saya coba lanjut ke text editornya untuk membuat kodingannya agar contoh dari aplikasi yang akan saya buat ini bisa jalan dengan tujuannya yang mana yaitu aplikasi ini bisa membuat sebuah config kemudian bisa save dan tentu harus bisa load atau menampilakan apa yang telah di save.

Disini pertama saya coba tambahkan pada uses yaitu unit IniFiles atau bisa teman-teman baca di postingan cara membuka dan menutup aplikasi lain untuk menambahkan unit pada uses,terus saya coba membuat variable config yang mana coba saya letakan dibawah var Form1: TForm1 jadinya seperti pada gambar dibawah ini

Menambahkan Variable Config

Koding Button SAVE

Setelah itu saya lanjut untuk membuat procedure untuk button SAVE sesuai dengan namanya jadi button ini saya buat untuk bisa menyimpan pada config dengan cara mengklik 2X button SAVE kemudian saya tambahkan beberapa kodingan pada procedure button tersebut,dimana procedure tersebut menjadi seperti berikut dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
begin
  config := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
  try
    config.WriteString('CONFIG', 'NAMA', Edit1.Text);
    config.WriteString('CONFIG', 'NOHP', Edit2.Text);
    config.WriteBool('CONFIG', 'JKEL', CheckBox1.Checked);
    config.WriteBool('CONFIG', 'LAKI', RadioButton1.Checked);
    config.WriteBool('CONFIG', 'PEREM',  RadioButton2.Checked);
    finally
    config.Free;
    end;
end;

Koding Button LOAD

Kemudian lanjut untuk membuat procedure button LOAD yaitu saya fungsikan button ini untuk supaya bisa menampilkan kembali apa yang telah di SAVE dimana procedure untuk button LOAD tersebut adalah seperti berikut 

procedure TForm1.Button2Click(Sender: TObject);
begin
  config := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
  try
    Edit1.Text := config.ReadString('CONFIG', 'NAMA', Edit1.Text);
    Edit2.Text := config.ReadString('CONFIG', 'NOHP', Edit2.Text);
    CheckBox1.Checked := config.ReadBool('CONFIG', 'JKEL', CheckBox1.Checked);
    RadioButton1.Checked := config.ReadBool('CONFIG', 'LAKI', RadioButton1.Checked);
    RadioButton2.Checked := config.ReadBool('CONFIG', 'PEREM', RadioButton2.Checked);
    finally
    config.Free;
    end;
end;

Tes Run Aplikasi

Setelah kodingan tersebut diatas saya buat langkah terahir adalah saya coba run atau tekan F9 kemudian saya coba mengisi kolom edit1 dan edit2 dan di ceklis pada checkbox dan radiobutton1 kemudian saya coba klik tombol SAVE setelah itu saya coba tutup aplikasi tersebut kemudian saya coba run lagi kemudian saya klik button LOAD dan ahirnya tampil cocok seperti yang di SAVE sebelumnya.

Tes Running Project Save and Load

Demikian experimen saya tentang cara membuat config serta bisa SAVE dan LOAD semoga postingan ini bermanfaat bagi teman-teman dan bisa teman-teman kembangkan lagi.Nantikan lagi experimen selanjutnya dari saya.Apabila teman-teman ada yang kurang jelas atau ada saran silahkan tulis di komentar,Terima Kasih.

Ok Salam Blogger And Happy Coding.