type
字节 = Byte;
字 = Word;
双字 = DWord;
布尔 = Boolean;

字符 = Char;
整数 = Integer;
短整数 = SmallInt;
双精度 = Double;
单进度 = Single;

指针 = Pointer;

const

真 = True;
假 = False;

type

PIPv4头 = ^TIPv4头;
TIPv4头 = packed record
case 布尔 of
真: (
版本: 字节;
服务: 字节;
长度: 字;
标识: 字;
偏移: 字;
生存时间: 字节;
传输协议: 字节;
校验和: 字;
源地址: 双字;
的地址: 双字;
);
假: (
数据:array[0..19]of 字节;
)
end;