包中的条件表达式是否被破坏了？

Question

考虑以下代码片段：

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

它看起来在语法上是绝对正确的。但是，编译器会阻塞它并报告Constant expression expected。这里到底发生了什么？

技术:目前仅在XE (15.0.3953.35171)上测试。

当然，我们也欢迎你提出变通的建议。

Answer 1

我在过去的Delphi2007中也发现了同样的问题。作为变通方法，我使用带有条件定义的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}

Answer 2

package模块不同于program和library模块。它们不包含可执行代码，您不能use单元。因此，像RTLVersion这样的符号在包文件中是不可见的。您唯一的选择是使用$IFDEF。

Answer 3

我相信我刚刚找到的原因。请考虑以下几点：

{$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}

因此，它看起来是编译器正确的行为，但发出了一个相当误导(如果不是错误的)关于符号不是常量表达式的消息，而问题中的符号实际上是未声明的！