Delphi中如何让编译器预处理宏并生成合法常量定义？

问题原因 #

Delphi的const段要求定义的必须是编译期可直接计算的常量表达式。标准Windows单元里的MAKELANGID要么是普通函数，要么是基于C风格宏的封装，但Delphi的预处理系统不支持C那样的文本替换宏，编译器无法在编译阶段解析函数调用并计算出固定值，因此抛出E2026 Constant expression expected错误。

可行解决方案 #

1. 直接展开位运算实现（最通用，兼容所有Delphi版本） #

MAKELANGID的核心逻辑是将子语言ID左移10位后与主语言ID做按位或运算，直接写这个逻辑就能让编译器计算出常量：

const
  LANG_BUL = (SUBLANG_DEFAULT shl 10) or LANG_BULGARIAN;

2. 使用constexpr函数（Delphi 10.2及以上版本支持） #

如果用的是较新的Delphi版本，可以自定义一个constexpr函数，既保留函数调用的可读性，又能让编译器在编译期计算结果：

constexpr function MakeLangId(Lang, SubLang: Word): Word;
begin
  Result := (SubLang shl 10) or Lang;
end;

const
  LANG_BUL = MakeLangId(LANG_BULGARIAN, SUBLANG_DEFAULT);

3. 手动计算常量值（适合旧版本或快速场景） #

直接查LANG_BULGARIAN和SUBLANG_DEFAULT的预定义数值，计算后写死常量：
比如LANG_BULGARIAN是$0002，SUBLANG_DEFAULT是$0000，那么：

const
  LANG_BUL = $0002;

内容的提问来源于stack exchange，提问作者alancc