TUTORIAL CARA MEMBUAT FILE .INI UNTUK MENYIMPAN SETTING DAN KONFIGURASI APLIKASI

Pada tulisan ini saya bermaksud akan membuat penyimpanan hasil konfigurasi suatu aplikasi, namun bukan didalam database, melainkan kita akan membuat file *.ini yang biasa digunakan oleh suatu aplikasi program untuk menyimpan setting konfigurasi program tanpa harus dengan database. Jadi disaat kita merubah maka konfigurasi terakhir akan tersimpan dan akan dipanggil lagi saat program dijalankan.

Langsung saja, hanya kali ini saya hanya akan membahas cara menyimpan konfigurasi suatu aplikasi. Langkah yang harus disiapkan di delphi yaitu : Siapkan 2 TEdit (beri nama APPNAME dan APPVERSION) dan 1 Button.

Tambahkan INIFiles pada bagian uses program

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

Coding di Button1 :

procedure TForm1.Button1Click(Sender: TObject);
var
  myINI : TINIFile;
begin
   myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'APP.ini');
   myINI.WriteString('APLIKASIKU','Application Name',APPNAME.Text);
   myINI.WriteString(' APLIKASIKU','Version', APPVERSION.Text);
end;

Untuk tampilan formnya seperti berikut :

Coding lengkapnya seperti ini jika belum bisa di Run :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    APPNAME: TEdit;
    APPVERSION: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  myINI : TINIFile;
begin
   myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'APP.ini');
   myINI.WriteString('APLIKASIKU','Application Name',APPNAME.Text);
   myINI.WriteString(' APLIKASIKU','Version', APPVERSION.Text);
end;
end.