Delphi 包中的条件表达式是否已断开？

考虑以下代码段：

requires
  designide,
  rtl,
  vcl,
  {$IF RTLVersion < 19.0}            // E2026 Constant expression expected
  //{$IF CompilerVersion = 22.0}     // same as above
  vcljpg;
  {$ELSE}
  vclimg;
  {$IFEND}

需要
指定人，
rtl，
vcl，
{$IF RTLVersion<19.0}//E2026应为常量表达式
//{$IF compilervision=22.0}//同上
vcljpg；
{$ELSE}
vclimg；
{$IFEND}

它似乎在语法上是绝对正确的。但是，编译器会阻塞它，并报告所需的

常量表达式

。这里到底发生了什么

技术：目前仅在XE（15.0.3953.35171）上测试

---

当然，解决方案建议也很受欢迎。

即使在delphi 2007中，我也发现了同样的问题。作为解决方法，我使用带有条件定义的inc文件，然后使用

{$IFDEF}

而不是

{$IF}

差不多

{$I MyDefines.INC}


requires
  designide,
  rtl,
  vcl,
 {$IFDEF DELPHI_XE_UP} //the DELPHI_XE_UP is defineed inside of MyDefines.INC
  uNewlib;
 {$ELSE}
  uOldLib;
 {$ENDIF}

---

我确信我刚刚找到了原因。考虑以下事项：

{$IF not Declared(RTLVersion)}
{$MESSAGE WARN 'There is no RTL'}
{$IFEND}
{$IF not Declared(CompilerVersion)}
{$MESSAGE WARN 'nor are compiler intrinsics at all'}
{$IFEND}
{$IF not Declared(System)}
{$MESSAGE ERROR 'Because package not uses System implicitly'}
{$IFEND}

---

所以，编译器的行为似乎是正确的，但发出了一个相当误导性的（如果不是错误的话）消息，关于符号不是常量表达式，而所讨论的符号实际上是未声明的

包

模块不同于

程序

和

库

模块。它们不包含可执行代码，您不能

使用

单元。因此，像

RTLVersion

这样的符号在包文件中是不可见的。您唯一的选择是使用

$IFDEF

您建议重用的

定义.inc

（在维护和没有病毒许可证的情况下）？尝试使用绝地项目（jcl或jvcl）FWIW中包含的inc文件：在D2007中，

{$IF RTLVersion<19.0}

测试如果在

包含
子句之后使用。@Ulrich Gerhardt，非常有趣的观察，谢谢！（与XE确认）这并不完全正确，请参见乌尔里希·格哈特对OP的评论。我不知道这一点，但遗憾的是，它毫无用处，因为
包含
之后的唯一内容是
结束。
。