file

Coba dulu yang sebelumnya Klik di bawah ini !!!

Lanjutan Record : [SORTING]

FILE

1. Komposisi dari File Teks
File Teks disusun sebagai runtunan beberapa baris .
• Tiap baris terdiri dari runtunan karakter.
• Tiap baris diakhiri oleh karakter khusus, yaitu END-OF-LINE (EOLN)
• Karakter yang terakhir dari file teks adalah END-OF-FILE (EOF)
Contoh.

- EOF : menerima argumen nama file dan menghasilkan nilai true jika sudah tidak ada data yang bisa dibaca lagi.
- EOLN : menerima argumen nama file dan menghasilkan nilai true jika sudah tidak ada lagi data yang bisa lagi dalam satu baris.

2. Operasi pada file teks
Untuk melakukan operasi pada file teks, kita perlu mendeklarasikan suatu variabel dengan tipe teks seperti berikut:

var
F : text;

F adalah sembarang variabel file teks dan readme adalah nama file teks yang akan dibaca, pertama kita harus memanggilnya dengan fungsi :
assign(F,'README');

3. Membaca File dan Menampilkannya di Layar
Sebelum kita bisa membaca kita harus membuka file tersebut.

reset(F);

kita bisa membaca file baris demi baris, misalkan dengan menyatakan suatu variabel s sebagai string:

readln(F, s);

setelah selesai membaca keseluruhan teks kita harus menutupnya dengan:

close(F);

Contoh. (misal kita punya suatu file dengan path 'D:\file1.txt')

4. Menulis File Baru
Kita membuat suatu file teks dengan mengubah kata kunci :

reset(F); menjadi rewrite(F);

Kemudian: Gunakan readln(F,s) untuk membaca file yang akan dikopi dan writeln(F,s) untuk menulis ke file tujuan
Contoh 1.. (misal kita punya suatu file dengan path 'D:\file1.txt') dan kita akan memgkopinya ke file dengan path 'D:\file1.txt')

Contoh 2. membuat file baru

Catatan: statemen rewrite(variabel_teks) apabila diterapkan pada file yang sudah ada akan menyebabkan isi file terhapus dan mulai membuat yang baru, maka untuk menambahkan teks pada file yang sudah ada digunakan kata kunci append (variabel_teks).

5. Error pada Pembacaan File
Untuk mengatasi error pada pembacaan file teks digunakan error-handling. yaitu :

{$I-} --> membuat Pascal stabil
: --> proses pada file
{$I+} --> deteksi terhadap error

error dapat di deteksi dengan memanggil fungsi IOResult. jika IOresult adalah 0, maka tidak terjadi error.
Contoh :

6. Jenis Error pada Pembacaan File
IO result dapat menghasilkan jenis kesalahan pada pembacaan file, seperti contoh.