File dalam pascal
File dalam pascal adalah bentuk penyimpanan data yang dimana program dan data tidak terhapus walaupun computer dimatikan ,sehingga data tersimpan dengan permanen.Data disimpan di dalam perangkat penyimpanan seperti hardisk maupun removeable mediaJ ,,, nah ini bentuk tipe bentukan yang harus kita buat
TYPE NamaTipe = FILE OF TipeKomponen;
Contoh nya
Type fileaku=file of integer;
(diatas dapat diartikan yaitu tipe bernama fileaku berisi file yang berjenis integer)
Setelah membuat tipe maka anda harus mendeklarasikan nya di dalam var (Variable)
Var file:fileaku;
Nah… supaya paham … neh tak liatin listing program …. Ya emank panjang seh brow.. ya tpi ntr situ paham juga hehhehee….
Listing program
uses wincrt;
type tipefileint=file of integer;
var fileint:tipefileint;
data,tambah,i,pos,ganti:integer;
pil:char;
procedure bukafile;
begin
assign(fileint,'C:\pascal\imam.dat');
{$I-}
reset(Fileint);
{$I+}
end;
begin
writeln('menu');
writeln('1.tambah data ');
writeln('2.ubah data');
writeln('3.cetak data');
writeln('masukkan pilihan: ');readln(pil);
case pil of
'1':begin
bukafile;
write('tambah data');
write('tambah dengan : ');readln(tambah);
seek(fileint,filesize(fileint));
data:=tambah;
write(fileint,data);
close(fileint);
end;
'2':begin
bukafile;
writeln('ubah data ');
write('posisi yang akan diubah : ');readln(pos);
write('ganti dengan: ');readln(data);
seek(fileint,pos-1);
write(fileint,data);
seek(fileint,0);
writeln;
close(fileint);
end;
'3':begin
writeln('Cetak Data');
bukafile;
while not eof(fileint) do
begin
read(fileint,data);
writeln(data);
end;
close(fileint);
end;
end;
end.
Nah … inti na dari file bertipe ini ada ditulisan ini gan,,,
assign(fileint,'C:\pascal\imam.dat');
{$I-}
reset(Fileint);
{$I+}
end;
(artinya mengaitkan fileint ,dengan isi yang ada di directory pascal (folder pascal) yang dimana data yang dibuat berada di imam.dat
Nah… ingat setiap kita mau menambah ,mengedit ,dan mencatak data harus dibuka dulu dengan procedure yang sudah saya buat diatas, karean file bertipe hanya dapat menjalankan satu hal, tidak bisa anda sekali buka file untuk melakukan pengeditan maupun pencetakan,,
SO GOOD LUCK……………… SUWUN before
0 komentar:
Posting Komentar