Membuat Config .ini Files pada Delphi 7

Membuat sebuah applikasi dengan pengaturan system *.ini files. Berikut tutorial untuk contoh penggunaan iniFiles secara sederhana. Proses save dan read iniFiles, yaitu menyimpan dan membaca kembali hasil simpanan dari iniFiles tersebut. Untuk hasil bisa dilihat digambar gerak .gif dibawah ini.

Siapkan beberapa komponen delphi di bawah ini :
1 buah Label,
2 buah Edit, dan
2 buah Button

Kemudian lakukan pengaturan atau penyusunan komponen-komponen tersebut, kira-kira seperti ini :

Tambahkan sebuah library baru yaitu INIFiles pada uses bagian atas form.

uses INIFiles;

Tambahkan variabel global berikut :

var
  Form1: TForm1;
  myINI : TINIFile;
  lastText : string;

Kemudian berikan beberapa event pada komponen-komponen delphi yang sudah ada :

procedure TForm1.Button1Click(Sender: TObject);
begin
    myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'myinifile.ini');
    myINI.WriteString('Default','ListenPort',Edit1.Text);
    myINI.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'myinifile.ini');
  Edit2.Text:=myINI.ReadString('Default','ListenPort',lastText);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'myinifile.ini');
  Edit2.Text:=myINI.ReadString('Default','ListenPort',lastText);
end;

Ok program selesai dibuat, silahkan dicoba dengan melakukan compile dan running pada delphi 7 Anda. Jika sobat masih bingung dengan penjelasan diatas ga perlu risau, saya juga share Source Code jadinya bisa sobat download di google drive dibawah.

Google Drive Source Code Read dan Write Download disini
Link download Mediafire Download disini