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

【问题标题】：Are conditional expressions broken within packages?包中的条件表达式是否被破坏？
【发布时间】：2012-01-08 11:47:39
【问题描述】：

考虑以下 sn-p：

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) 上测试。

当然，也欢迎提出解决方法。

【问题讨论】：

FWIW：在 D2007 中，{$IF RTLVersion < 19.0} 测试在 containsclause 之后使用。
@Ulrich Gerhardt，非常有趣的观察，谢谢！（与 XE 确认）

标签： delphi compiler-construction delphi-xe conditional-compilation conditional-expressions

【解决方案1】：

即使在使用 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}

【讨论】：

您建议重用哪个defines.inc（在维护和无病毒许可中）？
尝试使用jedi项目中包含的inc文件（jcl或jvcl）

【解决方案2】：

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

【讨论】：

这并不完全正确，请参阅 Ulrich Gerhardt 对 OP 的评论。
好吧，我不知道，但遗憾的是它相当没用，因为contains 之后的唯一内容是end.。

【解决方案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}

因此，编译器的行为似乎是正确的，但会发出关于符号不是常量表达式的相当误导（如果不是错误的话）的消息，而有问题的符号实际上是未声明！

【讨论】：