Buat Database Menggunakan File Dari Typed File Delphi

Sederhananya file adalah a urutan biner dari beberapa tipe. Di Delphi, ada tiga kelas mengajukan: mengetik, teks, dan tidak diketik. File yang diketik adalah file yang berisi data dari tipe tertentu, seperti Double, Integer atau tipe Rekam kustom yang ditentukan sebelumnya. File teks berisi karakter ASCII yang dapat dibaca. File yang tidak diketik digunakan ketika kita ingin memaksakan struktur yang paling tidak mungkin pada file.

Sedangkan file teks terdiri dari baris yang diakhiri dengan CR / LF (#13#10) kombinasi, file yang diketik terdiri dari data yang diambil dari tipe tertentu dari struktur data.

Sebagai contoh, deklarasi berikut ini membuat tipe catatan yang disebut TMember dan array variabel catatan TMember.

Tipe

 TMember = merekam

 Nama: tali[50];

tali[30];

akhir;

var Anggota: Himpunan[1..50] dari Temberember; 

Sebelum kita dapat menulis informasi ke disk, kita harus mendeklarasikan variabel tipe file. Baris kode berikut mendeklarasikan variabel file F.

var F: file dari Temberember; 

Catatan: Untuk membuat file yang diketik dalam Delphi, kami menggunakan yang berikut ini sintaksis:

var SomeTypedFile: file dari SomeType

Tipe dasar (SomeType) untuk suatu file dapat berupa tipe skalar (seperti Double), tipe array atau tipe record. Seharusnya bukan string panjang, array dinamis, kelas, objek atau pointer.

Untuk mulai bekerja dengan file dari Delphi, kita harus menautkan file pada disk ke variabel file dalam program kami. Untuk membuat tautan ini, kita harus menggunakan AssignFile prosedur untuk mengaitkan file pada disk dengan variabel file.

 AssignFile (F, 'Members.dat') 

Setelah asosiasi dengan file eksternal dibuat, variabel file F harus 'dibuka' untuk mempersiapkannya untuk membaca dan menulis. Kami memanggil prosedur Reset untuk membuka file yang ada atau Menulis ulang untuk membuat file baru. Ketika sebuah program selesai memproses file, file tersebut harus ditutup menggunakan prosedur CloseFile. Setelah file ditutup, file eksternal yang terkait diperbarui. Variabel file kemudian dapat dikaitkan dengan file eksternal lain.

Secara umum, kita harus selalu menggunakannya penanganan pengecualian; banyak kesalahan mungkin muncul saat bekerja dengan file. Sebagai contoh: jika kita memanggil CloseFile untuk file yang sudah ditutup Delphi melaporkan kesalahan I / O. Di sisi lain, jika kami mencoba untuk menutup file tetapi belum memanggil AssignFile, hasilnya tidak dapat diprediksi.

Misalkan kita telah mengisi larik anggota Delphi dengan nama, email, dan jumlah posting mereka dan kami ingin menyimpan informasi ini dalam file pada disk. Sepotong kode berikut akan melakukan pekerjaan:

var

 F: file dari Temberember;

mulai

 AssignFile (F, 'members.dat');

 Menulis ulang (F);

mencoba

untuk j: = 1 untuk 50 melakukan

 Tulis (F, Anggota [j]);

akhirnya

 CloseFile (F);

akhir;akhir; 

Untuk mengambil semua informasi dari file 'members.dat', kami akan menggunakan yang berikut ini kode:

var

 Anggota: TMember

 F: file dari Temberember;mulai

 AssignFile (F, 'members.dat');

 Atur Ulang (F);

mencoba

sementara tidak Eof (F) mulai

 Baca (P, Anggota);

{DoSomethingWithMember;}

akhir;

akhirnya

 CloseFile (F);

akhir;akhir; 

catatan: Eof adalah fungsi pengecekan EndOfFile. Kami menggunakan fungsi ini untuk memastikan bahwa kami tidak mencoba membaca di luar akhir file (di luar catatan tersimpan terakhir).

File biasanya diakses berurutan. Ketika file dibaca menggunakan prosedur standar. Baca atau tulis menggunakan prosedur standar. Tulis, posisi file saat ini bergerak ke komponen file yang diurutkan secara numerik berikutnya (catatan berikutnya). File yang diketik juga dapat diakses secara acak melalui Seek prosedur standar, yang memindahkan posisi file saat ini ke komponen yang ditentukan. Itu FilePos dan Ukuran file fungsi dapat digunakan untuk menentukan posisi file saat ini dan ukuran file saat ini.

{kembali ke awal - catatan pertama}

 Carilah (F, 0);

{buka catatan 5-th}

 Carilah (P, 5);

{Lompat ke akhir - "setelah" catatan terakhir}

 Carilah (F, FileSize (F)); 

Anda baru saja belajar cara menulis dan membaca seluruh jajaran anggota, tetapi bagaimana jika semua yang ingin Anda lakukan adalah mencari anggota ke-10 dan mengubah e-mail? Prosedur selanjutnya melakukan hal itu:

prosedur Ganti e-mail(const RecN: integer; const Email baru: tali) ;var DummyMember: TMember;mulai

{assign, open, exception handling block}

 Carilah (F, RecN);

 Baca (F, DummyMember);

 DummyMember. Email: = NewEMail;

{Baca pindah ke catatan berikutnya, kita harus

 Carilah (F, RecN);

 Tulis (F, DummyMember);

{close file}akhir;

Itu saja — sekarang Anda memiliki semua yang Anda butuhkan untuk menyelesaikan tugas Anda. Anda dapat menulis informasi anggota ke disk, Anda dapat membacanya kembali, dan Anda bahkan dapat mengubah beberapa data (email, misalnya) di "tengah" file.

Yang penting file ini bukan File ASCII, ini adalah tampilannya Notes (hanya satu catatan):

 .Delphi Guide g Ò5 · ¿ì. 5.. B V.Lƒ, „¨[email protected]Ï.. ç.ç.ï..