Record di dalam Record (Pascal)

Sebuah record bisa saja berisi record. Sebagai gambaran, perhatikan deklarasi berikut ini.

type
    RecTanggal = record
                              tanggal,
                              bulan,
                              tahun    : integer;
                          end;
    RecPegawai = record
                              nomor    : longint;
                              nama     : string[35];
                              tgllahir : RecTanggal;
                              gaji     : longint;
                           end;

Yang perlu diperhatikan adalah cara mengakses field seperti tanggal, bulan, dan tahun. Notasi yang diperlukan adalah sebagai berikut:

nama_variabel.tgllahir.tanggal
nama_variabel.tgllahir.bulan
nama_variabel.tgllahir.tahun

Contoh program seperti diatas:

uses wincrt;
type
    RecTanggal = record
                    tanggal,
                    bulan,
                    tahun    : integer;
                 end;
    RecPegawai = record
                    nomor    : longint;
                    nama     : string[35];
                    tgllahir : RecTanggal;
                    gaji     : longint;
                 end;
var datapeg: RecPegawai;
begin
     datapeg.nomor  := 12345;
     datapeg.nama   := 'Aeolin Prigen Sayekti';
     datapeg.tgllahir.tanggal := 23;
     datapeg.tgllahir.bulan   := 07;
     datapeg.tgllahir.tahun   := 1993;
     datapeg.gaji   := 900000;
     writeln('Nama Pegawai   : ',datapeg.nama);
     writeln('Tanggal Lahir  : ',datapeg.tgllahir.tanggal,'/',datapeg.tgllahir.bulan,'/',datapeg.tgllahir.tahun);
     readln;
end.

Sekian.