FILEFILE

File diibaratkan dengan map-map yang File diibaratkan dengan map-map yang berisi dengan data filing cabinet dan filing berisi dengan data filing cabinet dan filing cabinet itu sendiri diibaratkan sebagai cabinet itu sendiri diibaratkan sebagai simpanan luar.simpanan luar.

Suatu file terdiri dari urutan komponen Suatu file terdiri dari urutan komponen yang mempunyai tipe yang sama. yang mempunyai tipe yang sama.

Di dalam bahasa Pascal dikenal 3 macam Di dalam bahasa Pascal dikenal 3 macam tipe dari file yaitu: file teks, file bertipe, file tipe dari file yaitu: file teks, file bertipe, file tak bertipe.tak bertipe.

Prosedure dan fungsi standar untuk Prosedure dan fungsi standar untuk semua tipe filesemua tipe file

Prosedur standar yang dapat Prosedur standar yang dapat digunakan untuk ke 3 tipe file yang digunakan untuk ke 3 tipe file yang adalah prosedure standar assign, adalah prosedure standar assign, rewrite, reset, close, erase, rename, rewrite, reset, close, erase, rename, getdir, chdir, mkdir dan rmdir. getdir, chdir, mkdir dan rmdir. Sedang fungsi standar yang dapat Sedang fungsi standar yang dapat digunakan untuk ketiga tipe file digunakan untuk ketiga tipe file adalah fungsi standar Eof dan adalah fungsi standar Eof dan IOResult.IOResult.

Prosedure Standar AssignProsedure Standar Assign

Sebelum suatu file digunakan, maka Sebelum suatu file digunakan, maka namam dari file tersebut haru namam dari file tersebut haru dihubungkan dengan suatu variabel dihubungkan dengan suatu variabel yang disebut dengan variabel fiel(file yang disebut dengan variabel fiel(file variabel).prosedur standar Assign variabel).prosedur standar Assign digunkan untuk menghubungkan digunkan untuk menghubungkan nama dari external file ke dalam nama dari external file ke dalam suatu file variable dengan sintaksuatu file variable dengan sintak

Assign (f;name:string);Assign (f;name:string);

Pada sintak ini, f adalah file variable dan Pada sintak ini, f adalah file variable dan name adalah nama dari external file yang name adalah nama dari external file yang akan digunakan.file variabel merupakan akan digunakan.file variabel merupakan suatu variabel yang juga menunjukkan suatu variabel yang juga menunjukkan apakah file berada di disk atau merupakan apakah file berada di disk atau merupakan peralatan luar.peralatan luar.

Contoh :Contoh :assign(rekam,’A:Gaji.Dat’);assign(rekam,’A:Gaji.Dat’);

Prosedur Standar RewriteProsedur Standar Rewrite

Setelah nama dari external file Setelah nama dari external file dihubungkan dengan file variabel, dihubungkan dengan file variabel, selanjutnya file dapat dibuka. selanjutnya file dapat dibuka. Prosedur standar Rewrite dapat Prosedur standar Rewrite dapat digunakan untuk membuka file yang digunakan untuk membuka file yang baru atau yang belum pernah ada di baru atau yang belum pernah ada di disk dengan sintak:disk dengan sintak:

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

Pada sintak ini, f adalah file variabel yang Pada sintak ini, f adalah file variabel yang sudah dihubungkan dengan external file sudah dihubungkan dengan external file menggunakan prosedur satndar Assign. menggunakan prosedur satndar Assign. RecSize adalah ukuran dari record yang RecSize adalah ukuran dari record yang digunakan khusus pada untyped file yang digunakan khusus pada untyped file yang menunjukkan ukuran dari record yang menunjukkan ukuran dari record yang akan digunakan untuk mentransfer data.akan digunakan untuk mentransfer data.

Contoh:Contoh:

assign(rekam,’A:Gaji.dat’);assign(rekam,’A:Gaji.dat’);

erase(rekam);erase(rekam);

menunjukkan file di disk dengan menunjukkan file di disk dengan nama Gaji.dat di drive A: dihapus nama Gaji.dat di drive A: dihapus dari diskdari disk

Prosedur standar resetProsedur standar reset

Kalau prosedur standar rewrite Kalau prosedur standar rewrite digunakan untuk membuka file baru digunakan untuk membuka file baru yang belum ada di disk, maka yang belum ada di disk, maka sebaliknya posedur standar reset sebaliknya posedur standar reset digunakan untuk membuka file yang digunakan untuk membuka file yang telah ada dengan sintak.telah ada dengan sintak.

Reset(f[:file;recsize:word)]);Reset(f[:file;recsize:word)]);

contohcontoh

Assign(rekam,’a:gaji.dat’);Assign(rekam,’a:gaji.dat’);

Reset(rekam);Reset(rekam);

Pada contoh menunjukkan suatu file Pada contoh menunjukkan suatu file yang telah ada di disk dengan nama yang telah ada di disk dengan nama filenya ‘gaji.dat’ di drive a:dibuka. filenya ‘gaji.dat’ di drive a:dibuka.

Prosedur standar closeProsedur standar close

Prosedur standar ini digunakan untuk Prosedur standar ini digunakan untuk menutup file yang telah dibuka menutup file yang telah dibuka dengan prosedur standar rewrite, dengan prosedur standar rewrite, reset atau append dengan sintak:reset atau append dengan sintak:

close(f);close(f);

contoh:contoh:close(rekam);Mclose(rekam);M

Prosedur standar eraseProsedur standar erase

Prosedur standar ini digunakan utnuk Prosedur standar ini digunakan utnuk maenghapus suatu eksternal file dengan maenghapus suatu eksternal file dengan sintak:sintak:

erase(f);erase(f);

contoh:contoh:

assign(rekam,’a:gaji.dat’);assign(rekam,’a:gaji.dat’);

erase(rekam);erase(rekam);

Prosedur standar renameProsedur standar rename

Digunakan untuk mengganti nama dari Digunakan untuk mengganti nama dari suatu external file dengan sintak:suatu external file dengan sintak:

rename(f;newname:string);rename(f;newname:string);contoh:contoh:assign(rekam,’a:gaji.dat’);assign(rekam,’a:gaji.dat’);menunjukkan file di disk dengan nama menunjukkan file di disk dengan nama gaji.dat di drive a: diganti namanya degan gaji.dat di drive a: diganti namanya degan gajimei.dat.gajimei.dat.

Prosedure Standar GetDirProsedure Standar GetDir

Prosedur standar ini digunakan untuk Prosedur standar ini digunakan untuk mengetahui posisi directory yang mengetahui posisi directory yang aktip pada suatu drive sintak:aktip pada suatu drive sintak:

GetDir(d:byte;var s:string);GetDir(d:byte;var s:string);

Contoh:Contoh:

getdir(d:bye;var s:string);getdir(d:bye;var s:string);

Contoh:Contoh:

VarVardrivedrive:byte;:byte;directory:string[25];directory:string[25];

BeginBegindrive :=0;drive :=0;getdir(drive,directory);getdir(drive,directory);writeln(‘directory yang aktip adalah writeln(‘directory yang aktip adalah ‘,directory);‘,directory);

End.End.

Psosedur standar chdirPsosedur standar chdir

Psosedur standar ini digunakan untuk Psosedur standar ini digunakan untuk merobah posisi dari directory dengan merobah posisi dari directory dengan sintak:sintak:

chdir(s:string);chdir(s:string);

Prosedur standar mkdirProsedur standar mkdir

Prosedur standar ini digunakan untuk Prosedur standar ini digunakan untuk membuat suatu directory yang baru membuat suatu directory yang baru dengan sintak:dengan sintak:

mkdir(s:string);mkdir(s:string);

Prosedur standar rmdirProsedur standar rmdir

VarVar

directory: string[50];directory: string[50];

BeginBegin

directory:=‘b:\mei’;directory:=‘b:\mei’;

rmdir(directory);rmdir(directory);

End.End.

Fungsi Standar EofFungsi Standar Eof

Fungsi standar ini akan menghasilkan Fungsi standar ini akan menghasilkan status apakah file sudah berada di status apakah file sudah berada di posisi akhir dari file atau tidak, posisi akhir dari file atau tidak, dengan sintak:dengan sintak:

Eof(f):boolean;Eof(f):boolean;