主页 / 问题 / 1610173
Accepted
sibedir
Asked:2025-04-10 14:06:00 +0000 UTC2025-04-10 14:06:00 +0000 UTC

Delphi 看不到 $IF 条件编译指令下的模块

  • 772

如果您将其拖放到 Delphi XE2 中的表单上TImageList，它将uses自动添加到模块中Vcl.ImgList。如果您在 Delphi 11 上执行相同操作，那么。将会被添加System.ImageList。我希望该项目能够在任何版本上进行编译。具体来说，现在我可以这样做：

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

  {$IFDEF VER350}
  System.ImageList,
  {$IFEND}

  Vcl.ImgList;

但是后来我硬连线到 Delphi 11。使用这个我将其修复为：

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

  {$IF CompilerVersion > 23.0}
  System.ImageList,
  {$IFEND}

  Vcl.ImgList;

（现在我可以澄清，从哪个版本开始我需要包含这个模块uses）

但是现在当我尝试编译 Delphi 11 时，它会自动添加另一个System.ImageList

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

  {$IF CompilerVersion > 23.0}
  System.ImageList,
  {$IFEND}

  Vcl.ImgList, System.ImageList;

并拒绝编译并出现错误

[dcc32 错误] Unit1.pas(14): E2004 标识符重新声明：“System.ImageList”

此外，该条件本身{$IF CompilerVersion > 23.0}在可执行代码中完美运行。我专门创建了一个单独的代码

procedure TForm1.Button1Click(Sender: TObject);
begin
  {$IF CompilerVersion > 23.0}
  ShowMessage('CompilerVersion > 23.0');
  {$ELSE}
  ShowMessage('CompilerVersion <= 23.0');
  {$IFEND}
end;

它也可以在 XE2 中运行

编译器版本 <= 23.0

11点

编译器版本 > 23.0

我还能如何创建通用条件编译检查版本或以某种方式摆脱这个错误？

delphi

2 个回答

  1. Best Answer

    是的，这是一个已知问题。通过添加占位符解决：

    • 在项目源文件夹中创建一个Placeholders文件夹；
    • 在此文件夹中创建一个文件ImageList.pas；
    • 在 XE2 的项目设置中，将 Placeholders 文件夹添加到所有平台（x32、x64）的搜索路径（Build - Delphi 编译器）中。

    ImageList.pas存根的内容：

    unit ImageList;

interface

implementation

initialization

{$IF (CompilerVersion >= 24)} // XE3 and UP
  {$MESSAGE ERROR 'This unit is placeholder for XE2 and early versions only!'}
{$IFEND}

end.

    您可能还需要UITypes.pas和Actions.pas的存根。

    好了，很明显现在您在连接有问题的模块时不需要在使用中使用任何编译条件。新版本的 Delphi 将采用当前单元，而 XE2 将连接一个存根 - 这样每个人都会很高兴。

    • 3

  2. 解决方案是仅使用简单$IFDEF条件：

    unit Unit1;
interface
uses
  Forms
  {$IFDEF VER320} {$DEFINE VARIANT_SHORT} {$IFEND}
  {$IFDEF VER330} {$DEFINE VARIANT_SHORT} {$IFEND}
  {$IFDEF VER340} {$DEFINE VARIANT_LONG} {$IFEND}
  {$IFDEF VER350} {$DEFINE VARIANT_LONG} {$IFEND}
  {$IFDEF VARIANT_SHORT}, Classes, Controls, StdCtrls{$IFEND}
  {$IFDEF VARIANT_LONG}, System.Classes, Vcl.Controls, Vcl.StdCtrls{$IFEND}
  ;
    • 1

相关问题