1. Penting untuk memahami struktur file INI:
;komentar
[nama bagian]
kata kunci=nilai
...
File INI mengizinkan beberapa bagian, dan setiap bagian mengizinkan beberapa kata kunci. "= diikuti dengan nilai kata kunci.
Ada tiga jenis nilai: string, nilai integer, dan nilai Boolean. String disimpan dalam file INI tanpa tanda kutip, nilai Boolean sebenarnya diwakili oleh 1, dan nilai Boolean salah diwakili oleh 0.
Komentar dimulai dengan titik koma ";".
2. Definisi
1. Tambahkan IniFiles di bagian Penggunaan Antarmuka;
2. Tambahkan baris ke bagian definisi variabel Var:
file sayaini:Tinifile;
Kemudian, Anda dapat membuat, membuka, membaca, menulis, dan operasi lainnya pada variabel myinifile.
3. Buka file INI
myinifile:=Tinifile.create('program.ini');
Baris pernyataan di atas akan membuat hubungan antara variabel myinifile dan file spesifik program.ini. Kemudian, nilai kata kunci dalam file program.ini dapat dibaca dan ditulis melalui variabel myinifile.
Perlu dicatat bahwa jika nama file dalam tanda kurung tidak menentukan jalurnya, maka file Program.ini akan disimpan di direktori Windows. Metode untuk menyimpan file Program.ini di direktori aplikasi saat ini adalah dengan menentukan Path lengkap dan nama file. Dua pernyataan berikut dapat menjalankan fungsi ini
mampu:
Nama file:=ExtractFilePath(Paramstr(0))+'program.ini';
myinifile:=Tinifile.Create(nama file);
4. Baca nilai kata kunci
Untuk tiga tipe data string, nilai integer, dan nilai Boolean yang didukung oleh file INI, kelas TINIfiles menyediakan tiga metode objek berbeda untuk membaca nilai kata kunci dalam file INI.
Asumsikan bahwa variabel yang ditentukan vs, vi, dan vb masing-masing bertipe string, integer, dan boolean.
vs:=myinifile.Readstring('nama bagian','kata kunci',nilai default);
vi:=myinifile.Readinteger('nama bagian','kata kunci',nilai default);
vb:=myinifile.Readbool('nama bagian','kata kunci',nilai default);
Nilai default adalah nilai default yang dikembalikan ketika kata kunci tidak ada di file INI.
5. Tulis file INI
Demikian pula, kelas TInifile juga menyediakan tiga metode objek berbeda untuk menulis kata kunci tipe string, integer, dan Boolean ke file INI.
myinifile.writestring('nama bagian', 'kata kunci', nilai variabel atau string);
myinifile.writeinteger('nama bagian', 'kata kunci', variabel atau nilai integer);
myinifile.writebool('nama bagian', 'kata kunci', variabel atau Benar atau Salah);
Jika file INI tidak ada, pernyataan di atas secara otomatis akan membuat file INI.
6. Hapus kata kunci
Selain menambahkan kata kunci menggunakan metode write, kelas Tinifile juga menyediakan metode objek untuk menghapus kata kunci:
myinifile.DeleteKey('nama bagian','kata kunci');
7. Operasi bagian
Menambahkan bagian dapat dilakukan dengan metode tulis, dan menghapus bagian dapat dilakukan dengan metode objek berikut:
myinifile.EraseSection('nama bagian');
Selain itu, kelas Tinifile juga menyediakan tiga metode objek untuk beroperasi pada bagian:
myinifile.readsection('nama bagian', variabel TStrings); dapat membaca semua nama kata kunci di bagian yang ditentukan ke dalam variabel daftar string;
myinifile.readsections(variabel TStrings); dapat membaca semua nama bagian dalam file INI menjadi variabel daftar string.
myinifile.readsectionvalues('nama bagian', variabel TStrings); dapat membaca semua baris (termasuk kata kunci, =, nilai) dari bagian yang ditentukan dalam file INI ke dalam variabel daftar string.
8. Rilis
Lepaskan myinifile di lokasi yang sesuai dengan pernyataan berikut:
myinifile.distory;
9. Sebuah contoh
Berikut ini menggunakan contoh sederhana (seperti yang ditunjukkan pada gambar) untuk menunjukkan metode membuat, membaca, dan menyimpan file INI. File myini.ini berisi bagian "Parameter Program", dan tiga kata kunci: nama pengguna (string), status pengguna resmi (nilai Boolean), dan waktu yang berlalu (nilai integer). Program membaca data ini saat formulir dibuat dan menulis file myini.ini saat formulir dirilis.
Daftar program sumber terlampir
satuanUnit1;
antarmuka
kegunaan
Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,
Dialog,IniFiles,StdCtrls,ExtCtrls;
jenis
TForm1=kelas(TForm)
Sunting1:TEdit;
Sunting2:TEdit;
Kotak Centang1:TCkotak centang;
Pengatur Waktu1: Pengatur Waktu;
procedureFormCreate(Pengirim:TObject);
procedureFormDestroy(Pengirim:TObject);
procedureTimer1Timer(Pengirim:TObject);
pribadi
{Deklarasi Pribadi}
publik
{Deklarasi Publik}
akhir;
var
Formulir1:TForm1;
file sayaini:Tinifile;
pelaksanaan
{$R*.dfm}
procedureTForm1.FormCreate(Pengirim:TObject);
var
nama file:string;
mulai
nama file:=ExtractFilePath(paramstr(0))+´myini.ini´;
myinifile:=TInifile.Create(nama file);
edit1.Teks:=myinifile.readstring(´parameter program´,´nama pengguna´,´nama pengguna default´);
edit2.text:=inttostr(myinifile.readinteger(´parameter program´,´waktu berjalan yang telah berlalu´,0));
checkbox1.Checked:=myinifile.readbool(´parameter program´,´apakah itu pengguna resmi´,False);
akhir;
procedureTForm1.FormDestroy(Pengirim:TObject);
mulai
myinifile.writestring(´parameter program´,´nama pengguna´,edit1.Teks);
myinifile.writeinteger(´parameter program´,´waktu berjalan yang telah berlalu´,strtoint(edit2.teks));
myinifile.writebool(´Parameter program´, ´Apakah ini pengguna resmi´, kotak centang1.Dicentang);
myinifile.Hancurkan;
akhir;
procedureTForm1.Timer1Timer(Pengirim:TObject);
mulai
edit2.Teks:=inttostr(strtoint(edit2.teks)+1);
akhir;
akhir.
Contoh ini lolos debugging pada Delphi6.0+WinXP.