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

原创已于 2022-08-01 10:18:42 修改 · 744 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

于 2022-07-12 11:33:51 首次发布

Pascal/Delphi 专栏收录该内容

3 篇文章

订阅专栏

本文详细介绍了C/C++和Delphi中GUID（全局唯一标识符）结构体的定义方式及其初始化过程。在C/C++中，GUID通过typedef struct定义，并提供了一个具体的初始化示例。而在Delphi中，GUID被定义为packed record，并通过{$J-}

以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++更加严谨(繁琐), 必须要在每个值前用冒号指定对应的字段名