Statemen Kontrol dalam Operasi File

1. Assign

     Digunakan untuk menghubungkan nama dari external file ke dalam suatu file variabel

Bentuk Umum:

Assign(f,name:string);

Contoh:

Assign(Rekam,’A:gaji.dat’);

Keterangan:

Rekam adalah file variabel

A:gaji.dat adalah external file berupa file di disk

2. Append

     Digunakan untuk membuka file yang telah ada/ menambah data yang sudah ada.

Bentuk Umum:

Append(var f:text);

Contoh:

Program menambah_teks_pada_file_txt; uses crt; var    kata:text;    a:string; begin      clrscr;      write('masukkan nama file yang ingin ditambah : ');      readln(a);      assign(kata,a);      append(kata);      writeln('Masukkan teks : ');      readln(a);      repeat      writeln(kata,a);      readln(a);      until a='stop';      close(kata);;   end.

3. Reset

     Digunakan untuk membuka file yang telah ada.

Bentuk Umum:

Reset(f:file; recsize:word);

Contoh:

Program membaca_teks_pada_file_txt; uses crt; var    kata:text;    a:string; begin      clrscr;      write('masukkan nama file yang ingin dibaca : ');      readln(a);      assign(kata,a);      reset(kata);      while not eof (kata) do            begin                 readln(kata,a);                 writeln(a);            end;      readln; end.

Keterangan:

File yang telah ada di disk dengan nama filenya ‘gaji.dat’ di drive A dibuka, bila file yang dibuka ini tidak ada di disk maka akan terjadi kesalahan.

4. Close

     Digunakan untuk menutup file yang telah dibuka dengan prosedur Rewrite, Reset atau Append (digunakan khusus untuk File Text).

Bentuk Umum:

Close(f);

Contoh:

Close(Rekam);

5. Rewrite

     Digunakan untuk membuka file yang baru atau yang belum pernah ada di disk.

Bentuk Umum:

Rewrite(f[:file; recsize:word);

Contoh:

Program membuat_file_txt_dengan_pascal; uses crt; var    kata:text;    t:string; begin      clrscr;      write('Input nama file yang diinginkan : ');      readln(t);      assign(kata,t);      rewrite(kata);      writeln('Masukkan teks : ');      readln(t);      repeat      writeln(kata,t);      readln(t);      until t='stop';      close(kata); end.

6. EOF

     Digunakan untuk menghasilakan status apakah file sudah berada di posisi akhir dari file

atau tidak

Bentuk Umum:

EOF(f):boolean;

Contoh

Program membaca_teks_pada_file_txt; uses crt; var    kata:text;    a:string; begin      clrscr;      write('masukkan nama file yang ingin dibaca : ');      readln(a);      assign(kata,a);      reset(kata);      while not eof (kata) do            begin                 readln(kata,a);                 writeln(a);            end;      readln; end.

7. EOLN

     Digunakan untuk mengetahui apakah posisi dari file berada di status akhir baris atau tidak.

Bentuk Umum:

Eoln(var f:text): boolean;

uses crt; type mahasiswa = record      nama : string;      nilai : integer ; end; var    mhs : array [1..100] of mahasiswa;    kata:text;    a,temp1:string;    r,k,j,i,b,c,temp:integer; begin      clrscr;      assign(kata,'nilai.txt');      reset(kata);      while not eof (kata) do            begin              j:=0;              i:=1;                 while not eoln (kata) do                    begin                       j:=j+1;                       if j mod 2 = 0 then                         begin                              readln(kata,mhs[i].nilai);                              i:=i+1;                         end                       else                       if j mod 2 = 1 then                         begin                              readln(kata,mhs[i].nama);                         end;                    end;           end;     close(kata); end.

8. Freemem

     Prosedur ini berguna untuk menghapus perubah dinamis dengan ukuran tertentu. Deklarasinya adalah sebagai berikut :

Freemem(P, Ukuran);

     P adalah pointer yang bertipe sembarang dan sebelumnya  telah dinyatakan dengan prosedur Getmem. Ukuran adalah ungkapan bertipe word yang menunjukan ukuran pointer yang akan dihapus; yang harus sama dengan banyaknya byte yang sebelumnya dialokasikan oleh prosedur Getmem.

9. Getmem

     Prosedur Getmem berguna untuk mengalokasikan suatu perubah dinamis baru dengan ukuran tertentu dan meletakkan alamatnya ke dalam pointer. Deklarasinya adalah sebagai berikut :

GetMem(P, Ukuran);

     P adalah pointer yang bertipe sembarang. Ukuran adalah ungkapan yang bertipe word yang menunjukan ukuran peubah dinamis yang akan dialokasikan. Perubah yang baru diacu dengan P^.

Jika ukuran yang diminta lebih besar dibanding sisa tempat dalam heap, akan menyebab timbulnya kesalahan. Besarnya blok dalam heap yang bisa dialokasikan maksimum adalah 65521 byte.

10. Sizeof

     Fungsi sizeof digunakan untuk mengetahui besar atau banyak karakter  yang dibutuhkan oleh suatu argumen. Tipe data yang dihasilkan dari fungsi ini adalah Word. Deklarasi fungsi sizeof adalah sebagai berikut :

SizeOf(Bil);

Bil adalah acuan perubah (variable reference) atau pengenal tipe.