Type data record dan contoh

record adalah Sebuah catatan (analog dengan struktur dalam beberapa bahasa) merupakan seperangkat unsur-unsun heterogen. Setiap elemen disebut field. deklarasi tipe record menetapkan jenis dan nama untuk setiap kolom. Sintaks dari deklarasi tipe record

type recordTypeName = record
fieldList1: type1;
...
fieldListn: typen;
end

contoh :

procedure TForm1.Button2Click(Sender: TObject);
type
TKursus =record
biaya:integer;
media:string[20];
materi:string[10];
online:boolean;
BolehDiangsur:boolean;
end ;
var
Konsultasi:Tkursus;
begin
konsultasi.biaya:=1000000;
konsultasi.media:='Chatting, ebook, source';
konsultasi.materi:='Delphi 7 & Database';
with konsultasi do
begin
online:=true;
BolehDiangsur:=true;
end;

if konsultasi.online then
showmessage('Kursus Online ...enak donk..!')
else
showmessage('susah donk..');

if konsultasi.BolehDiangsur then
showmessage('Ikutan ah...Mumpung ada uang..')
else
showmessage('Nunggu ngumpulin duit dulu..');
end;