Skip to main content

Cara Menulis dan Membaca Nilai File INI

Cara menulis dan membaca nilai file INI Untuk membuat dan menulis nilai ke file INI, Anda dapat memanfaatkan kelas khusus yang telah disediakan delphi, yaitu kelas TIniFiles.

Langkah-langkah penggunaan TIniFiles adalah sebagai berikut:
  • Pada deklarasi Uses, tambahkan IniFiles.
  • Deklarasikan variabel bertipe TIniFiles.
  • Buat objek bertipe TIniFiles dengan metode Create(FileName: String). Parameter FileName menyatakan nama file yang akan dibuat atau dibuka. Standarnya, FileName menunjuk ke direktori Windows. Jika bekerja pada direktori lain, gunakan path absolut. Jika file yang dimaksud belum ada, akan terbentuk file baru. Dan jika sudah ada, file akan dibuka.
  • Lakukan operasi-operasi file INI seperti menulis dan membaca nilai.
  • Bebaskan objek TIniFiles dengan metode Free.

Menulis Nilai String Ke File INI

Untuk menuliskan suatu string ke dalam file INI, gunakan fungsi WriteString(const Section, Key, Value: String).

Jika section atau key yang hendak diberi nilai ternyata belum ada, akan terbentuk section atau key baru.

Membaca Nilai String Dari File INI

Pembacaan nilai string dari file INI dilakukan dengan fungsi ReadString(const Section, Key, Default: String): String.

Parameter default menyatakan nilai yang akan dikembalikan jika section, key, atau nilai value yang dimaksud tidak ditemukan.

Mencatat Posisi Form Pada File INI

Contoh program berikut ini dimaksudkan untuk menyimpan setting posisi form pada file "Seting.ini". Nilai default diset 0 sehingga jika pembacaan nilai posisi form mengalami kegagalan, nilai balik fungsi yang diperoleh adalah 0.

Berikut listing kode program selengkapnya:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIniFile: TIniFile;
begin
  MyIniFile:= TIniFile.Create(GetCurrentDir + '\Seting.ini');
  MyIniFile.WriteInteger('Posisi', 'Top', Top);
  MyIniFile.WriteInteger('Posisi', 'Left', Left);
  MyIniFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  INIFileName: TFileName;
  OpenedINIFile: TIniFile;
begin
  INIFileName:= ExtractFilePath(Application.ExeName) + 'Seting.ini';
  OpenedINIFile:= TIniFile.Create(INIFileName);
  Top:= OpenedINIFile.ReadInteger('Posisi', 'Top', 0);
  Left:= OpenedINIFile.ReadInteger('Posisi', 'Left', 0);
  OpenedINIFile.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:= 'Tekan tombol berikut dan pada direktori ' + #13 +
    '"' + GetCurrentDir + '"' + #13 + 'file seting.ini akan terbentuk.';
  Label2.Caption:= 'Tekan tombol berikut untuk mengubah posisi form. ' + #13 +
    'Geser posisi form ini, lalu tekan tombol di bawah untuk melihat hasilnya. ' + #13 +
    'Jika gagal melakukan pembacaan, maka posisi form ditentukan sesuai ' + #13 + 'nilai default.'
end;

end.

Cara menulis dan membaca nilai file INI
Labels:

Comments

Post a Comment

Popular posts from this blog

Pengenalan Dasar Qlik Sense

Dewasa ini konsep penyajian data informasi banyak mengalami perubahan yang menggembirakan. Jika dahulu, konsep penyajian data adalah dalam bentuk larik-larik data berisi teks dan biasanya tidak dinamis dan tidak interaktif. Sekarang, seiring dengan pertumbuhan data informasi yang masif, dibutuhkan sebuah teknik penyajian data yang semakin sederhana namun memuat banyak informasi, tersaji secara dinamis dan interaktif, menjadikan pekerjaan analisis data lebih menyenangkan dari sebelumnya. Di sinilah konsep Business Intelligence berawal. Idenya adalah, saya sajikan kepada Anda begitu banyak informasi yang tentu saja yang Anda butuhkan, dalam format visual yang bersih, informatif, dinamis, dan interaktif dalam layar komputer Anda. Qlik Sense merupakan sebuah Aplikasi Reporting untuk keperluan Bussiness Intelligence. Merupakan pengembangan dari aplikasi BI pendahulunya yaitu QlikView . Qlik Sense pada dasarnya sama dengan QlikView . Hanya saja Qlik Sense lebih menekankan pada ide
1 comment
Read more

Cara Membuat Aplikasi Di Qlik Sense

Salah satu kelebihan Qlik Sense dari software BI lainnya terletak pada penggunaannya yang begitu intuitif sehingga memberikan pengalaman pengguna yang mudah, menyenangkan, dan yang paling penting, fitur-fitur dalam Qlik Sense tersebut mudah dipelajari sehingga Anda akan relatif cepat menguasainya dan Anda dapat lebih fokus pada apa yang ingin Anda buat daripada memikirkan bagaimana cara membuatnya. Seperti yang telah saya jelaskan pada artikel sebelumnya, aplikasi Qlik Sense merupakan sebuah file yang berekstensi qvf . Di dalam aplikasi Qlik Sense terdiri dari sejumlah Sheet atau lembar kerja, di mana dalam sheet tersebut Anda membuat visualisasi data Anda. Anda dapat membuat lebih dari satu sheet dalam sebuah aplikasi Qlik Sense Anda, dan antar sheet akan saling terhubung satu sama lain. Membuat aplikasi di Qlik Sense begitu mudah dan intuitif. berikut langkah-langkahnya: Jalankan Qlik Sense. Setiap Qlik Sense dijalankan pertama kali akan menampilkan popup window selamat da
Post a Comment
Read more

Cara Membuat Dan Menggunakan Unit Di Delphi

Artikel ini adalah lanjutan dari artikel Bekerja Dengan Unit Di Delphi .  Untuk membuat unit baru, pilih menu File | New | Unit . Listing di bawah ini merupakan suatu contoh unit yang dibuat Delphi. unit Unit2; interface implementation end.
Post a Comment
Read more