v Buka Delphi nya masing-masing
v Tambahkan Sebuah Component Edit dan satu Component Button
v Sebelumnya kita Uses IniFiles pada Klausa Uses
procedure TForm1.FormCreate(Sender: TObject);
var
appINI : TIniFile;
LastUser : string;
LastDate : TDateTime;
begin
appINI := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
LastUser := appINI.ReadString('Pengguna','Terakhir',LastUser) ;
LastDate := appINI.ReadDate('Pengguna', 'Tanggal', Date) ; ShowMessage('Program ini terakhir dipakai oleh: ' + LastUser + ' on ' + DateToStr(LastDate));
Top := appINI.ReadInteger('Penempatan','Top', Top) ;
Left := appINI.ReadInteger('Penempatan','Left', Left);
Width := appINI.ReadInteger('Penempatan','Width', Width);
Height := appINI.ReadInteger('Penempatan','Height', Height);
finally
appINI.Free;
end;
end;
Procedure FormCreate Sangat Ideal untuk melakukan Pembacaan Properties-properties pada Aplikasi.
Pencet F12 klik tab Event Double klik event onClose.Kode Berikut akan kita Tuliskan di Procedure FormClose untuk penulisan Ini File yang akan dibaca ketika Form di Create.
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
appINI : TIniFile;
begin
appINI := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
appINI.WriteString('Pengguna','Terakhir',Edit1.Text) ;//Edit1.text sebagai variable string appINI.WriteDate('Pengguna', 'Tanggal', Date) ;
with appINI, Form1 do begin
WriteInteger('Penempatan','Top', Top) ;
WriteInteger('Penempatan','Left', Left) ;
WriteInteger('Penempatan','Width', Width) ;
WriteInteger('Penempatan','Height', Height) ;
end;
finally
appIni.Free;
end;
end;
- Double Click Button1,ketikan Close;.
Ketikan Nama anda di Component Edit lalu atur Tinggi atau lebar Form pencet Button1,Jika anda membuka kembali Aplikasi yang tadi anda buat maka tinggi,lebar dan pesan saat aplikasi dibuka akan sama seperti saat anda terakhir memakai aplikasi anda.coba anda bandingkan dengan aplikasi yang tidak memakai Ini File..