06 Mei 2009

Menyimpan Data ke File INI

Banyak aplikasi menyimpan informasi konfigurasi pada file INI. Kita bisa menyimpan berbagai macam hal pada file INI, misalnya menyimpan posisi dan panjang atau lebar form. File INI tersebut dapat digunakan lagi untuk mengembalikan posisi dan panjang atau lebar form. File INI berisi informasi yang dibagi berdasarkan grup yang dinamakan “section”. Masing-masing section tersebut berisi nilai dari data yang disimpan berdasarkan nama key. Berikut adalah contoh isi dari file INI.
[Form1]
Left=100
Top=10
Width=500
Height=300

[Button1]
Caption=Tes

Pada Delphi kita bisa menggunakan class TIniFile untuk manipulasi file INI. Class ini di deklarasikan pada unit IniFiles. Dalam class ini disediakan method untuk mengakses data pada file INI. Data tersebut bisa mempunyai tipe:

  • String.
  • Integer.
  • Float.
  • DateTime.
  • Date.
  • Time.
  • Bool.
  • Binary.
Contoh berikut akan membaca file INI.
uses IniFiles;

var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create(‘C:\myconfig.ini’);
  try
    Form1.Left := MyIniFile.ReadInteger('Form1', 'Left', 0);
    Form1.Top := MyIniFile.ReadInteger('Form1', 'Top', 0);
    Form1.Width := MyIniFile.ReadInteger('Form1', 'Width', 500);
    Form1.Height := MyIniFile.ReadInteger('Form1', 'Height', 300);
    Button1.Caption := MyIniFile.ReadString('Button1', 'Caption', '');
  finally
    MyIniFile.Free;
  end;
end;

Atau sebaliknya untuk menyimpan data ke dalam file INI.
uses IniFiles;

var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create(‘C:\myconfig.ini’);
  try
    MyIniFile.WriteInteger('Form1', 'Left', Form1.Left);
    MyIniFile.WriteInteger('Form1', 'Top', Form1.Top);
    MyIniFile.WriteInteger('Form1', 'Width', Form1.Width);
    MyIniFile.WriteInteger('Form1', 'Height', Form1.Height);
    MyIniFile.WriteString('Button1', 'Caption', Button1.Caption);
  finally
    MyIniFile.Free;
  end;
end;

Tidak ada komentar:

Posting Komentar