Membuat *.Ini File Di Delphi

Membuat *.Ini File Di Delphi



Apakah anda Tau *.Ini atau File ini/File Configurasi??Ini File digunakan untuk menyimpan Properties-Properties dari component-Component yang terakhir kali di atur oleh User/pengguna,Contohya kita membuat aplikasi Text Editor dan User mengubah Font Arial(Default) nya misalnya menjadi Comic Sans ms...setelah user keluar dari aplikasi dan user kembali membuka aplikasi tsb maka Font nya akan tetap menjadi Font Default saat kita membuat aplikasi tsb...di Tutorial Delphi kali ini saya akan Coba Share Bagaimana cara membuat Ini File di Delphi.Pasti yang baca enggak ngerti apa yang saya omongin,he..maklum saya ga punya bakat Nulis,hi…

Oke deh biar pada ngerti langsung aja saya kasih contoh sederhana nya:



v Buka Delphi nya masing-masing

v Tambahkan Sebuah Component Edit dan satu Component Button

v Sebelumnya kita Uses IniFiles pada Klausa Uses

 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;

Procedure FormCreate Sangat Ideal untuk melakukan Pembacaan Properties-properties pada Aplikasi.

 Pencet F12 klik tab Event Double klik event onClose.Kode Berikut akan kita Tuliskan di Procedure FormClose untuk penulisan Ini File yang akan dibaca ketika Form di Create.

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;

• Double Click Button1,ketikan Close;. 

• Pencet F9! Jadi Deh….

Ketikan Nama anda di Component Edit lalu atur Tinggi atau lebar Form pencet Button1,Jika anda membuka kembali Aplikasi yang tadi anda buat maka tinggi,lebar dan pesan saat aplikasi dibuka akan sama seperti saat anda terakhir memakai aplikasi anda.coba anda bandingkan dengan aplikasi yang tidak memakai Ini File..

Silahkan Download Source Code nya agar anda lebih paham,Oh iya sekalian Mau kasih tau saya baru Upload E-Book Membuat Report dengan Quick Report silahkan di donlot di Menu DropDown di sebelah kanan Blog ini…Jika ada pertanyaan Silahkan Layangkan Email ke fajar90alone@Gmail.com jika saya mampu akan saya jawab asal jangan Susah-Suah,he..he.. Terima kasih..

Semoga bermanfaat ^__^