Membuat File INI dengan Delphi #213

SSD jauh lebih cepat aksesnya daripada hardis

Andry Fadrie K Agustus 24, 2012

4 915 1 minute read

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 :

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.

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;