tulisan 14

2.2. Membuat file Bertipe

Urutan Prosesnya :

1.    Mendeklarasikan variabel file

Var NmVar:FILE OF TypeVariabel;

Dengan :

NmVar                  : Nama variabel file bertipe

TypeVariabel      : Char, variabel tipe RECORD, variabel tipe array, real, variabel

array tipe record. Untuk satu file satu tipe elemen.

Contoh :

Type DaftarBarang        = Array [1..100] of integer;

DataKonsumen     = RECORD

Nama          :string[15];

Alamat         :string[30];

Kode            :1..3;

DaftarKonsumen  = Array [1..100] of Datakonsumen ;

Var

FileBarang          : File of Daftarbarang;

FileJumlah          : File of  integer;

FileData   : File of DataKonsumen;

FileKode  : File of Char;

2.    Menghubungkan variabel file dengan nama file

Assign (NmVar, nama file);

Dengan :

NmVar                  : Nama variabel file bertipe

nama file             : Nama file dalam bentuk string, format 8:3 penamaan dos, ditulis

dalam bentuk string.

3.    Membuat /membuka file bertipe

Rewrite(NmVar);  => untuk membuat

Reset(NmVar);  => untuk membuka

4.    Menulis / membaca file Bertipe

 Write (NmVar, data item1, data item 2, …)  => untuk menulis

 Read (NmVar, data item1, data item 2, …)  => untuk membaca

Data item1, data item 2 dan seterusnya, harus berupa variabel, tidak bisa dituliskan secara langsung dalam bentuk konstanta. Variabelnya harus sama dengan deklarasi tipe file-nya.

Fungsi Writeln dan Readln tidak dapat digunakan pada file bertipe.

5.    Menutup file

Close (NmVar);