Pernyataan Close

Disusun Oleh Dosen : Elisawati, S.Kom, M.Kom

Pernyataan Close dipakai untuk menutup file-file yang dibuka dan dipakai dalam suatu program. Program yang menggunakan operasi Output-Input (O/I) biasanya lebih lambat, karena program tersebut dengan menggunakan jasa DOS berhubungan dengan aspek Fisik dari disket.

Pascal menyediakan memori untuk menampung atau menuliskan data ke file. Ketika program menuliskan data atau membaca data, program membaca atau menuliskan data ke file buffer., bukannya langsung ke file eksternal secara langsung. Pascal secara periodic memindahkan data tersebut dari file buffer ke file eksternal. Apabila kita tidak menuliskan pernyataan close, proses pemindahan data tidak akan sempurna, dengan akibat ada data yang hilang. Tidak disimpan dalam file. Dengan cara semacam itu, program yang melibatkan operasi I/O akan diproses lebih cepat daripada apabila program langsung memanggil file eksternal.

Penulisan pernyataan Close adalah sebagai berikut :

Close(InfileData);

Contoh program :

Program hasilPrinter (InfileData,Output):
Var
Begin
    InfileData : text;
    I : Integer;
    AssiGn(InfielData,’PRN’);
    Rewrite(InfileData)
    WriteLn(InfileData,’Bilangan dari 10 ke 10);
    WriteLn;
    For I := 1 to 10 Do
    WriteLn(InfileData,I);
    WriteLn(InfileData,chr(12));
    Close(InfileData);
End.

Hasil dari program diatas :

1
2
3
4
5
6
7
8
9
10