Menulis dan Membaca Ini Files pada Delphi XE5 (Pendalaman)

By: QMPC Network on 01.08

Sebelumnya penulis sudah membahas ini dalam posting sebelumnya, bagi yang belum baca silahkan klik disini dan kali ini penulis akan memperdalam pembahasan ini agar kita dapat menyimpan dan membaca data di ini files yang secara otomatis akan dibuat oleh program delphi xe5. Sebenarnya ini files adalah sebuah catatan configurasi untuk suatu program, pada postingan ini penulis fokuskan pada cara menulis dan membaca data di ini files.

Langkah 1 :
Pertama buat sebuah form seperti ini dibawah ini :

Langkah 2 :
Di sini ada 3 label, 3 edit, 2 button dan 1 listbox yang semua ada di standart dan edit value untuk kolom pengisiannya menjadi Enama, Ealamat dan Etelp kemudian 2 button yaitu btntulis dan btnbaca.

Langkah 3 :
Tambahkan IniFiles pada Klausa Uses

Langkah 4 :
Klik double button tulis dan tulis seperti di bawah :

procedure TForm1.BtnTulisClick(Sender: TObject);
var
Myini : TIniFile;
begin
myini := tinifile.Create(ExtractFilePath (Application.exename)+'IniFile-Baguscakepz.ini');
myini.WriteString('pengaturan','nama', ENama.text);
myini.WriteString('pengaturan','alamat',EAlamat.text);
myini.WriteString('pengaturan','telp',ETelp.text);
myini.Free;
end;

Keterangan :

myini := Tinifile.create adalah membuat file.ini
extractfilepath adalah direktory tempat penyimpanan file tersebut, jika hanya dituliskan seperti itu maka inifile akan ada pada direktory tempat project/program disimpan.
IniFile-Baguscakepz.ini adalah nama ini file yang akan kita simpan.
myini.writestring adalah tahapan dimana kita menulis isi dari ini file..
'pengaturan' adalah judul dari isi inifile.

Langkah 5 :
Klik double button baca dan isikan source code berikut :

procedure TForm1.BtnBacaClick(Sender: TObject);
var
myini:tinifile;
begin
myini := tinifile.Create(extractfilepath (application.exename)+'IniFile-Baguscakepz.ini');
listbox1.Items.Add (myini.ReadString('pengaturan','nama','ga ada isinya'));
listbox1.Items.Add (myini.ReadString('pengaturan','alamat','ga ada isinya'));
listbox1.Items.Add (myini.ReadString('pengaturan','telp','ga ada isinya'));
myini.Free;
end;

Langkah 6 :
Sekarang uji coba, klik tombol run (F9), secara berurutan seperti berikut :