Tutorial membuat konfigurasi menggunakan file *.ini pada delphi 7

Tutorial kali ini adalah bagaimana cara untuk membuat konfigurasi file dengan menggunakan file INI pada pemrograman delphi 7. Sebelum melanjutkan turoial kali ini apakah anda tahu apa itu file INI? file tersebut adalah file yang berfungsi untuk menyimpan konfigurasi file utama yang dapat dipanggil dan disimpan kapan pun. Sebagai contoh anda perhatikan pada folder C:\Program Files\Borland\Delphi7 disana ada file yang berextensi .ini seperti uninstall.ini . Isi dari file tersebut adalah sebagai berikut :

[Program]
Count=23
File0="Bin\bcc32.cfg"
File1="Bin\idl2pas.bat"
File2="bin\xmldbwizard.ini"
File3="help\d7.ftg"
File4="help\d7.gid"
File5="Borland Delphi 7.msi"
File6="lib\corba.dcu"
File7="lib\cosevent.dcu"
File8="lib\cosnaming.dcu"
File9="lib\corbinit.dcu"
File10="lib\corbaobj.dcu"
FIle11="lib\orbpas45.dcu"
File12="lib\comcorba.dcu"
File13="bin\oh.ini"
File14="lib\debug\corba.dcu"
File15="lib\debug\cosevent.dcu"
File16="lib\debug\cosnaming.dcu"
File17="lib\debug\orbpas45.dcu"
File18="bin\C++Builder.dct"
File19="bin\bcb.dsk"
File20="bin\default.rps"
File21="bin\ilink32.cfg"
File22="bin\dcc32.cfg"

isi file tersebut memiliki format file .ini yaitu, head, dan property, yang mana head diisi dengan nama section dan property berupa key yang diisi dengan nilai key tersebut.

[section]
key1=value
key2=value

section, key dan value bukan merupakan case sensitive.  sedangkan untuk memberi comment maka harus diawali dengan tanda titik koma ( ; )

untuk dapat menggunakan file ini pada pemrograman delphi 7 maka harus mendeklarasikan file IniFiles.pas pada uses, berikut adalah contoh bagaimana membuat atau menulis file ini dan membaca file ini.

function bacainifile(namafile,seksi,key,default:string):string;
var INIFileName   : TFileName;
    OpenedINIFile : TIniFile;
begin
  //Menentukan path dan nama file INI yang dibuka
  INIFileName := namafile;

  // Membuka file INI
  OpenedINIFile := TIniFile.Create(INIFileName);

  result:=OpenedINIFile.ReadString(seksi, key, default);
  OpenedINIFile.Free;
end;

procedure tulisinifile(namafile,seksi,key,value:string);
var MyIniFile : TIniFile;
begin
  MyIniFile := TIniFile.Create(namafile);

  MyIniFile.WriteString(seksi, key, value);
  MyIniFile.Free;
end;

Contoh cara menggunaka file tersebut adalah sebagai berikut:

uses IniFiles;
...
// Cara membaca file ini
procedure Form1.button1click(Sender:TObject);
var seksi,key,value:string;
begin
  // Mr. Abdul adalah nilai value secara default jika key 'company' tidak memiliki nilai
  Edit1.text:=bacainifile('setting.ini','Client','company','Mr. Abdul');
end;
...
// Cara menulis file ini
procedure Form1.button2click(Sender:TObject);
var seksi,key,value:string;
begin
  tulisinifile('setting.ini','Client','company','Mr. Abdul');
end;

Jika dibuka file setting.ini maka akan berbebtuk seperti berikut:

[Client]
company=Mr. Abdul

Semoga tutorial ini memberika manfaat untuk bangsa. selamat mencoba.....