Menulis dan Membaca INIFILES pada Delphi 7

kali ini saya akan memberikan cara agar kita dapat menyimpan data di inifiles yang secara otomatis akan dibuat oleh program delphi..
sebenarnya inifiles adalah sebuah catatan configurasi untuk suatu program, namun pada tahap pertama ini saya hanya akan menjelaskan bagaimana cara menulis dan membaca data di INIFILES.

pertama buat sebuah form seperti ini..

jadi disana ada textnama, textalamat, dan texttelp..
dan untuk kolom pengisiannya ada ednama, edalamat dan edtelp..
lalu 2 button yaitu btnregis dan btnread..
yang terakhir tambahkan listbox1




tambahkan IniFiles pada Uses
seperti ini :

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, INIFiles;

selanjutnya buat koding ini pada btnregis (ini adalah Tahapan untuk membuat dan menulis data di inifile)..


procedure TForm1.btnregisClick(Sender: TObject);
var
begin
end;

penjelasan :

Myini adalah sebuah variable yang bisa berisi perintah untuk membuat atau membaca Inifiles.
jadi kita membuat sebuah file.ini pada perintah myini := Tinifile.create.
extractfilepath adalah direktory tempat penyimpanan file tersebut, jika hanya dituliskan seperti itu maka inifile akan ada pada direktory tempat project/program disimpan.
myinifile.ini adalah nama inifile yang akan kita simpan.
myini.writestring adalah tahapan dimana kita menulis isi dari inifile..
'pengaturan' adalah judul dari isi inifile.

jadi jika kita menulis data seperti ini, lalu klik register :

maka hasilnya akan membuat inifile pada direktory file project

dan isi dari inifile tersebut seperti ini :

 tahap selanjutnya adalah tahapan membaca data dari inifile

buat kodingan ini pada btnread

procedure TForm1.btnreadClick(Sender: TObject);
var
myini:tinifile;
begin
myini := tinifile.Create(extractfilepath (application.exename)+'myinifile.ini');
listbox1.Items.Add (myini.ReadString('pengaturan','nama','default'));
listbox1.Items.Add (myini.ReadString('pengaturan','alamat','default'));
listbox1.Items.Add (myini.ReadString('pengaturan','telp','default'));
myini.Free;
end;

pada tahap ini kita hanya menampilkan isi dari inifile ke dalam listbox..
myini.readstring adalah cara agar inifile dapat terbaca.
default adalah tulisan yang akan muncul jika ini inifile kosong / tidak kita isi, jadi fungsinya pada dengan else if..

inilah yang akan muncul pada list box jika inifile telah diisi..
klik pada Read Data..

dan jika filenya kosong.. maka akan muncul seperti ini