File Akses Pascal

File Akses Pascal - File Akses menggunakan kompiler Dev-Pascal, berikut ini Source Code Program yang bisa langsung diterapkan ke dalam kompiler Dev-Pascal.

program FileAkses;
uses crt;

type barang = record
  kode, nama : string;
  harga      : integer;
end;

var
  fileBarang : file of barang; //deklarasi
  dataBarang : barang;
  pil        : char;

procedure inputBarang;
var
ulangi : char;
begin
  assign(fileBarang,'barang.txt'); //memanggil
  {$i-}
  reset(fileBarang);               //membuka
  {$i+}
if ioresult<>0 then rewrite(fileBarang);
seek(fileBarang,filesize(fileBarang));  //memindahkan kursor
repeat
clrscr;
  writeln('-=-=-=-=-=-=-=-=-=-=');
  writeln('Program Input Barang');
  writeln('-=-=-=-=-=-=---=-=-=');
  write('Kode Barang  : ');readln(dataBarang.kode);
  write('Nama Barang  : ');readln(dataBarang.nama);
  write('Harga Barang : ');readln(dataBarang.harga);
  write(fileBarang,dataBarang); //simpan data
  writeln;
  write('Anda Ingin Input Barang Lagi (Y/T)');
repeat
ulangi:=readkey;
until (ulangi='y') or (ulangi='t');
until ulangi='t';
 close(fileBarang);
end;

procedure tampil;
var
x:integer;
begin
  assign(fileBarang,'barang.txt'); //memanggil
  {$i-}
  reset(fileBarang);               //membuka
  {$i+}
if ioresult<>0 then rewrite(fileBarang);
x:=0;
while not eof(fileBarang) do
begin
x:=x+1;
read(fileBarang,dataBarang); //membaca data
  writeln('-=-=-=-=-=-=-=-=-=-=-');
  writeln('Program Tampil Barang');
  writeln('-=-=-=-=-=-=---=-=-=-');
  writeln('Barang ke-',x);
  writeln('Kode   : ',dataBarang.kode);
  writeln('Nama   : ',dataBarang.nama);
  writeln('Harga  : ',dataBarang.harga);
end;
 close(fileBarang);
readln;
end;

//Program Utama
begin
repeat
clrscr;
  writeln('-=-=-=-=-=-=-=-=-=-=-=-');
  writeln('Program Database Barang');
  writeln('-=-=-=-=-=-=---=-=-=-=-');
  writeln('1. Input Barang');
  writeln('2. Tampil Barang');
  writeln('3. Keluar');
  writeln('*Input Pilihan ? (1/2/3)');
pil:=readkey;

case pil of
 '1' : inputBarang;
 '2' : tampil;
 '3' :

begin
writeln;
writeln('*Terimakasih Telah Menggunakan Program Kami*');
readln;
end;
 end;
until pil='3';
end.

Berikut hasil output Program File Akses Pascal yang dihasilkan.

Sekian program tentang File Akses Pascal, semoga bermanfaat.