Source Code Hapus Data dalam Pascal

Source Code Hapus Data dalam Pascal - Hapus data dalam program berikut berupa hapus data dengan menggunakan metode record.

Penghapusan data dalam record artinya dalam menghapus tidak terlebih dulu di cari data tersebut berdasarkan ID, hanya berupa penghapusan data berdasarkan batas record.

Berikut ini source code hapus data menggunakan compiler dev-pascal :

program hapus_data;
uses crt;
type
   mhs = record
      npm: string[7];
      nama: string[25];
      nilai: real;
   end;

var
   fmhs: file of mhs;
   rmhs: mhs;
   nourut,i,jml: integer;
   nocari: string[7];
   ketemu: boolean;
   lagi,ya: char;

   begin
     assign(fmhs,'mhs.dat');
     reset(fmhs);
     lagi:= 'Y';
     while upcase(lagi)='Y' do

     begin
     clrscr;
        jml:= filesize(fmhs);

        write('Nomor Record yang di Hapus (1  -',jml:3,') ? ');
        readln(nourut);
        writeln;

        if (nourut < 1) or (nourut > jml) then
           writeln('Tidak Ada No Record ini !!!')
        else
        begin
           for i:= nourut to jml do
           begin
              seek(fmhs,i-1);
              read(fmhs,rmhs);
              with rmhs do
              begin
              writeln('Nama Mahasiswa   : ',rmhs.nama);
              writeln('Nilai Mahasiswa  : ',rmhs.nilai:6:2);
              end;
           end;
        write('Yakin Data ini Akan di Hapus [Y/T] ? '); readln(ya);
        if upcase(ya) = 'Y' then
           begin
              seek(fmhs,nourut-1);
              truncate(fmhs);
           end;
     end;
     writeln;

     write('ada lagi yang akan dicari [Y/T] ? '); readln(lagi);
   end;
   close(fmhs);
end. 

Sekian artikel tentang Source Code Hapus Data dalam Pascal, semoga bermanfaat.