Membuat *.Ini File Di Delphi XE5

By: QMPC Network on 21.19

Apakah pembaca tahu apa itu file *.Ini atau File ini/File Configurasi? Ini File digunakan untuk menyimpan Properties-Properties dari komponent-komponent yang terakhir kali di atur oleh pengguna,, semisal kita membuat aplikasi text editor dan pengguna mengubah font dari arial menjadi times new roman setelah itu pengguna keluar dari aplikasi dan pengguna kembali membuka aplikasi yang tadi maka font akan tetap menjadi font arial saat kita membuat aplikasi tersebut. Dan di tutorial Delphi XE5 kali ini penulis akan mencoba share bagaimana cara membuat file .ini di Delphi XE5.

Langkah 1 :
Buka Delphi XE5

Langkah 2 :
Tambahkan Sebuah Component Edit dan satu Component Button, hasilnya akan terlihat seperti berikut ini :

Langkah 3 :
Setelah itu pada klausa Uses tambahkan IniFiles

Langkah 4 :
Sekarang kita akan mengetikkan source code berikut di event oncreate :

procedure TForm1.FormCreate(Sender: TObject);
var
appINI : TIniFile;
LastUser : string;
LastDate : TDateTime;
begin
appINI := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
LastUser := appINI.ReadString('Pengguna','Terakhir',LastUser) ;
LastDate := appINI.ReadDate('Pengguna', 'Tanggal', Date) ; ShowMessage('Program ini terakhir dipakai oleh: ' + LastUser + ' on ' + DateToStr(LastDate));
Top := appINI.ReadInteger('Penempatan','Top', Top) ;
Left := appINI.ReadInteger('Penempatan','Left', Left);
Width := appINI.ReadInteger('Penempatan','Width', Width);
Height := appINI.ReadInteger('Penempatan','Height', Height);
finally
appINI.Free;
end;
end;

Langkah 5 :
Sekarang pada event onclose samakan dengan source code ini :

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
appINI : TIniFile;
begin
appINI := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
appINI.WriteString('Pengguna','Terakhir',Edit1.Text) ;//Edit1.text sebagai variable string appINI.WriteDate('Pengguna', 'Tanggal', Date) ;
with appINI, Form1 do begin
WriteInteger('Penempatan','Top', Top) ;
WriteInteger('Penempatan','Left', Left) ;
WriteInteger('Penempatan','Width', Width) ;
WriteInteger('Penempatan','Height', Height) ;
end;
finally
appIni.Free;
end;
end;

Langkah 6 :
Sekarang pada button klik double dan ketikkan ini :
Close;

Langkah 7 :
Hasilnya akan seperti ini:

Langkah 8 :

Lihat difolder .exe sudah ada file baru yang bernama ini.ini dan kita coba buka isi dari file ini.ini