Delphi-Quellcode:
type cdTextPackage = {packed} record
packType: Byte;
trackNumber: Byte;
sequenceNumber: Byte;
X: Set of (dummy0, bDBC, dummy2, block, characterPosition);
//X: Set of ({ dummy = 0, } bDBC = 1, block = 3, characterPosition = 4);
data: Array [0..11] of Byte;
crc0: Byte;
crc1: Byte;
end;
[...] = ein statisches Array
:X = ein Bit-Feld (dafür gibt es in Pascal keine wirkliche Entsprechnung)