【Pascal/Delphi】常量结构体的初始化

以Windows中定义的GUID结构体为例, C/C++的初始化方式：

typedef struct _GUID {
    unsigned long  Data1;
    unsigned short Data2;
    unsigned short Data3;
    unsigned char  Data4[ 8 ];
} GUID;

const GUID USB_GUID = {0xa5dcbf10, 0x6530, 0x11d2, {0x90, 0x1f, 0x00, 0xc0, 0x4f, 0xb9, 0x51, 0xed}};

在Delphi中的定义及正确的初始化方式：

Type
TGUID = packed record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
 end;
{$J-}//指示编译器生成只读的类型常量, 如果没有这个编译指示, USB_GUID不是真正的常量, 可在运行时被修改
const USB_GUID: TGUID = (D1:$a5dcbf10; D2:$6530; D3:$11d2; D4:($90, $1f, $00, $c0, $4f, $b9, $51, $ed));
//相比于C/C++更加严谨(繁琐), 必须要在每个值前用冒号指定对应的字段名