使用子句中的 Delphi 条件编译

Question

我正在尝试修改我的 Delphi 2010 代码以在 XE7 中编译(并希望保留在 2010 年编译它的能力)。因此，在容纳我的主窗体的单元中，我添加了条件指令。以下内容在 2010 年运行良好

uses 
  {$IF CompilerVersion >= 24}System.Actions, {$ELSE}Actnlist,{$IFEND}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,  Dialogs;

但是 XE7 会自动在末尾添加一个 System.Actions 以创建一个 use 子句，该子句现在已声明两次 System.Actions(见下文)，并给出错误消息 [dcc32 Error ] MyForm.pas(10): E2004 标识符重新声明:'System.Actions'。为什么 XE7 不接受条件指令中的单元？

uses 
  {$IF CompilerVersion >= 24}System.Actions, {$ELSE}Actnlist,{$IFEND}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,  Dialogs,
  System.Actions; // <- automatically added

Answer 1

正如 Ken 所说，接口(interface)使用子句将由 IDE 修改，并且实现此目的的过程有些不太复杂(正如您所发现的)。同样的问题影响项目使用条款。不幸的是，在 Form/DataModule 使用子句的情况下，这种情况很难避免。

您可以使用单元别名(请参阅 David Heffernan 的回答)，但需要注意的是，如果您为 IDE 希望添加的单元创建别名，那么 IDE 仍会添加对所需单元的引用，因为它无法将别名识别为标识该所需单元。为系统单元起别名可以避免这种情况，因为它已经被每个单元(隐式)使用。

另一种选择是从您的使用列表中删除所有此类条件，并根据需要创建占位符单元，以便您希望在项目中使用的不同编译器都可以通过从列表中组合的单一使用列表来满足每个 IDE 都坚持是必需的(IDE 不会从使用列表中删除未使用的单元，这通常是一个提示，但在这种情况下实际上有助于解决您的问题)。

在本例中，在您的 Delphi 2010 项目中创建一个空的 Actions 单元:

 unit Actions;
 interface
 implementation
 end.

您当然需要确保该单元不在您的 XE7 版本项目的项目路径中。

实现这一目标的一种方法是确保空的 Actions.pas 单元未明确列在 DPR 使用列表中，而是放置在项目源的子文件夹中(例如“占位符”) )。然后，您可以将此子文件夹添加到 Delphi 2010 版本的项目搜索路径中，但不能添加到 XE7 版本的项目搜索路径中:

 \Project Folder

     project2010.dpr
     project2010.dproj
     projectXE7.dpr
     projectXE7.dproj

     \placeholders
          Actions.pas

如果您发现每个不同版本都需要占位符，那么您将需要单独的占位符文件夹。您可以创建更多版本特定的子文件夹，例如:

     \placeholders
          \2010
               Actions.pas
          \XE7
               D2010UnitNotPresentInXE7.pas

仅从创建自动/自记录组织的角度来看，这种结构可能是明智的。

请注意，这仅在处理表单(或框架等)。在非可视单元或实现部分中，IDE 不会干扰，因此条件编译指令不应出现任何问题。