Tipe Data Record

Delphi mempunyai sistem data seperti database pada umumnya. Data record akan menyimpan data secara dua dimensi, baris dan kolom. Anda pun juga dapat menyimpannya sebagai file. Asyik, kan? Pertiyiinyi....eh. Pertanyaannya, kenapa susah-susah pakai record? Pakai variabel biasa kan bisa? Tetapi satu variabel hanya boleh punya satu tipe data, sedangkan record bisa berbagai macam tipe data.

Pertama-tama kita harus mendefinisikan record yang akan kita pakai sebagai type. Dibawah ini, saya akan membuat data siswa dengan nama dan nilai.

type
   TSiswa = record
     NamaSiswa : Shortstring;
     NilaiSiswa : integer;
   end;

Type diatas harus diacu oleh variabel sehingga perlu didefinisikan di Var.

var
    DataSiswa : TSiswa;

Setelah perlakuan diatas, kita baru bisa mengisikan data, contoh:

DataSiswa.NamaSiswa := 'Sule Prikitiew';
DataSiswa.NilaiSiswa := 90;

Lantas bagaimana menyimpan data diatas sebagai file. Gampang, kok. Kita harus mendefinisikan variabel untuk menangani file tadi. Contoh, deklarasi var diatas menjadi seperti ini.

DataSiswa : TSiswa;
HndFile : File of TSiswa;

Setelah kita harus membuat file baru, atau inisialisasi jika sudah ada dengan perintah berikut:

AssignFile(HndFile, ExtractFilePath(Application.ExeName) + '\Siswa.dat');

Saya menganggap file record akan diletakkan di tempat yang sama dengan exe file, sehingga saya membutuhkan perintah untuk mendapatkan path tempat exe dengan

Application.ExeName

Perintah diatas ada di unit Forms, sehingga jangan lupa menyertakannya disana. Kemudian barulah kita memerintahkan untuk menulis ke file:

Rewrite(HndFile);

Serta  menyimpannya dengan perintah:

Write(HndFile, DataSiswa);

Jangan lupa menutup file setelah dibuka dengan AssignFile

Close(HndFile);

Agar jangan bingung, saya tunjukkan kode program yang tertulis selama ini:

program ContohRecord; {$APPTYPE CONSOLE} uses SysUtils, Forms; type TSiswa = record NamaSiswa : Shortstring; NilaiSiswa : integer; end; var DataSiswa : TSiswa; HndFile : File of TSiswa; begin try AssignFile(HndFile, ExtractFilePath(Application.ExeName) + '\Siswa.dat'); Rewrite(HndFile); DataSiswa.NamaSiswa := 'Sule Prikitiew'; DataSiswa.NilaiSiswa := 90; Write(HndFile, DataSiswa); DataSiswa.NamaSiswa := 'Tukul Arwana'; DataSiswa.NilaiSiswa := 85; Write(HndFile, DataSiswa); Close(HndFile); readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.

Sekarang kita perlu membuat program untuk membaca kembali data tersebut.

program ContohRecord; {$APPTYPE CONSOLE} uses SysUtils, Forms; type TSiswa = record NamaSiswa : Shortstring; NilaiSiswa : integer; end; var DataSiswa : TSiswa; HndFile : File of TSiswa; begin try AssignFile(HndFile, ExtractFilePath(Application.ExeName) + '\Siswa.dat'); FileMode := fmOpenRead; Reset(HndFile); while Not Eof(HndFile) do begin Read(HndFile, DataSiswa); writeln('Nama: ', DataSiswa.NamaSiswa); writeln('Nilai:', DataSiswa.NilaiSiswa); writeln(''); end; CloseFile(HndFile); readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.

Tipe Data Record 2018-11-01T15:10:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer