Belajar Membuat INI FILE Dengan Delphi Part 1

Tambahkan Komponen Label, Edit dan Button sebagai berikut:

  1. Label1 Ubah Caption Menjadi Username
  2. Label2 Ubah Caption Menjadi Password
  3. Label3 Ubah Caption Menjad Port
  4. Edit1, Edit2, dan Edit3 Ubah Text Menjadi Kosong
  5. Button1 Ubah Caption Menjadi Create
  6. Button2 Ubah Caption Read

Jangan Lupa Tambahkan Libray dibagian Uses paling atas dengan “inifiles”
Serta Buatlah Variabel Global “konfig: TIniFile;”

Pada Button1 klik 2x kemudian ketikan kode untuk membuat iniFile seperti contoh dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
var
NamaFile:String;
begin
NamaFile:=ExtractFilePath(Application.ExeName)+’Belajar.ini’;
Konfig:=TIniFile.Create(NamaFile);
Konfig.WriteString(‘SETTING’,’Username’,Edit1.Text);
Konfig.WriteString(‘SETTING’,’Password’,Edit2.Text);
Konfig.WriteInteger(‘SETTING’,’Port’,StrToInt(Edit3.Text));
Konfig.Free;
ShowMessage(‘Konfigurasi Berhasil Dibuat’);
end;

Pada Button2 klik 2x kemudian ketikan kode untuk membuat iniFile seperti contoh dibawah ini:

procedure TForm1.Button2Click(Sender: TObject);
var
NamaFile:String;
begin
NamaFile:=ExtractFilePath(Application.ExeName)+’Belajar.ini’;
Konfig:=TIniFile.Create(NamaFile);
Edit1.Text:=Konfig.ReadString(‘SETTING’,’Username’,”);
Edit2.Text:=Konfig.ReadString(‘SETTING’,’Password’,”);
Edit3.Text:=IntToStr(Konfig.ReadInteger(‘SETTING’,’Port’,0));
Konfig.Free;
end;

Mungkin Anda Menyukai

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

%d blogger menyukai ini: