DelphiPemrograman

Membuat File INI dengan Delphi #213

SSD jauh lebih cepat aksesnya daripada hardis

andrypein.net: Intronya, apa itu file INI yang kadang kita lihat pada aplikasi-aplikasi tertentu ada yang memilik setting.ini nya.

Nah INI files berfungsi untuk menyimpan konfigurasi setingan aplikasi yang kita buat.

Pada penggunaannya di delphi, INI files harus di deklarasikan dengan uses INIFiles.

kali ini kita akan membuat aplikasi setting.ini sederhana dengan satu section, lalu apa itu SECTION?

Skip ah, pembahasan section tidak akan diceritakan disini.

Kita koding langsung saja untuk mencoba untuk tombol save INI seperti ini :

procedure TForm1.btnsaveClick(Sender: TObject);
var
  AppIni : TIniFile;
begin
  AppIni:=TIniFile.Create(ChangeFileExt(application.ExeName,'.ini'));
  try
    AppIni.WriteString('CONTOH','string',edit1.Text);
    AppIni.WriteBool('CONTOH','boolean',radiobutton1.Checked);
    AppIni.WriteBool('CONTOH','cek box',checkbox1.Checked);
    AppIni.WriteDate('CONTOH','date',DateTimePicker1.Date);
    AppIni.WriteTime('CONTOH','time',DateTimePicker2.Time);
    AppIni.WriteInteger('CONTOH','integer',spinedit1.Value);
    AppIni.WriteFloat('CONTOH','float',strToFloat(edit2.Text));
  finally
    AppIni.Free;
  end;
end;

Input apa saja bebas misal, maka kalau kita setting .ini nya akan muncul seperti ini :

membuat file ini dengan delphi
random

Itulah boy yang section dengan nama contoh, sample sekarang cuma 1 section, yang ntar kita coba lebih dari satu.

Kemudian untuk tombol load INI kodenya seperti ini :

procedure TForm1.btnloadClick(Sender: TObject);
var
  AppIni : TIniFile;
begin
  AppIni:=TIniFile.Create(ChangeFileExt(application.ExeName,'.ini'));
  try
    edit1.Text:=AppIni.ReadString('CONTOH','string','');
    radiobutton1.Checked:=AppIni.ReadBool('CONTOH','boolean',false);
    checkbox1.Checked:=AppIni.ReadBool('CONTOH','cek box',false);
    DateTimePicker1.Date:=AppIni.ReadDate('CONTOH','date',DateTimePicker1.Date);
    DateTimePicker2.Time:=AppIni.ReadTime('CONTOH','time',DateTimepicker2.Time);
    SpinEdit1.Value:=AppIni.ReadInteger('CONTOH','integer',0);
    edit2.Text:=floattostr(AppIni.ReadFloat('CONTOH','float',0));
  finally
    AppIni.Free;
  end;
end;

Tutup aplikasi dan jalankan lagi untuk mencoba dan voila settingan kamu akan terload sesuai yang kamu inputkan pertama tadi.

kosongan
after load

Koding tambahan lainnya yaitu form create dan edit2 click (untuk float)

procedure TForm1.Edit2Click(Sender: TObject);
var
  float : single;
begin
  float:=random;
  edit2.Text:=FloatToStr(random);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit2.ReadOnly:=true;
end;
Yuk donlod yu apps cara membuat file ini dengan delphi nya disini gan.

Download

*AFK

Related Articles

4 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button