Simpan Setting Program Kamu di File INI Menggunakan Lazarus Pascal

 File .INI adalah file teks yang berekstensi .ini yang digunakan Windows untuk mengidentifikasikan sebagai file inisialisasi yang berfungsi menyimpan setting, konfigurasi suatu program. File .ini digunakan sejak terbitnya Windows, jadi format ini sudah cukup lama digunakan. Walaupun Windows modern sudah menyediakan database khusus bernama registry untuk menyimpan setting software, namun file .ini masih layak digunakan karena kesederhanaan dan kemudahan mengaksesnya.

File .ini akan diakses ketika sebuah program dijalankan. Karena bersifat seperti file teks, maka file .ini tidak dikunci oleh Windows, sehingga program masih dapat memanipulasi dan mengubah file .ini kapanpun.

Dengan menggunakan file .ini, kamu bisa dengan mudah memahani konfigurasi sebuah program. Berikut contoh struktur file .ini.

[section_name]

keyname-1 = value-1

Keyname-2 = value-2

; your comment here

Lazarus Pascal sudah menyediakan unit untuk mengolah file .ini yakni INIFILES, jadi kamu tidak perlu repot untuk membuat file untum menyimpan konfigurasi program.

Berikut contoh menggunakan file ini untuk merubah posisi top dan left Form1. Prosedur pertama adalah  menuliskan nilai pada file setting.ini

procedure TForm1.Button1Click(Sender: TObject);

var

  Ini : TInifile;

begin

  Ini:= TInifile.Create(Inifile);

  try

    //Write form position to ini file

    Ini.WriteInteger('POSITION', 'top', Form1.Top);

    Ini.WriteInteger('POSITION','left', Form1.Left)

  finally

    Ini.Free;

  end;

end;      

Pindah posisi form setelah kamu klik tombol "Write Form Position" dan klik tombol 'Read Form Position".

Dibawah adalah prosedur membaca file ini.

procedure TForm1.Button2Click(Sender: TObject);

var

  Ini : TInifile;

begin

  Ini:= TInifile.Create(Inifile);

  try

    //Read form position form ini file

    Form1.Top := Ini.ReadInteger('POSITION','top',0);

    Form1.Left:= Ini.ReadInteger('POSITION', 'left', 0);

  finally

    Ini.Free;

  end;

end;       

Cukup mudah ya. File .ini bisa menerima beberapa nilai tidak hanya bilangan integer atau string. Prosedur yang bisa kamu gunakan untuk menulis dan membaca nilai-nilai di file .ini.

• procedure WriteString(const Section, Ident: String, Value: String);
• procedure WriteInteger(const Section, Ident: String, Value: Integer);
• procedure WriteBool(const Section, Ident: String, Value: Boolean);
• procedure WriteDate(const Section, Ident: String, Value: TDateTime);
• procedure WriteTime(const Section, Ident: String, Value: TDateTime);
• procedure WriteFloat(const Section, Ident: String, Value: Double);

Untuk membaca nilainya, kamu harus menyesuaikan variable yang digunakan

• procedure ReadInteger(const Section, Ident: String, Default:Longint): Longint;

Sertakan juga nilai Default jika nilai yang dibaca belum tersedia, misal untuk nilai integer diberikan 0, nilai string diberikan c:\ dan sebagainya.

...

var

  ini: TInfile;

  i : integer;

begin

  ...

  i:= ini.ReadInteger('POSITION','top', 0):

  ...

end;

Contoh program pemakaian ini file bisa kamu unduh disini. Semoga bermanfaat.