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:

  • Buka Delphi nya masing-masing
  • Tambahkan Sebuah Component Edit dan satu Component Button
  • 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’,Edit1.Text) ;
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) ;
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 kode sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

  • 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. Jika ada pertanyaan Silahkan Layangkan komentar anda di bawah postingan ini. jika saya mampu akan saya jawab asal jangan Susah-Suah,he..he.. Terima kasih..Semoga bermanfaat ^__^

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s