7

考虑以下代码段：

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

当然，也欢迎解决方法的建议。

4

3 回答 3

12

即使使用 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}
于 2011-11-29T04:25:28.647 回答
8

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

于 2011-11-29T09:37:09.717 回答
2

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

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

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

于 2011-11-29T05:08:50.783 回答