阻止 IDE 自动添加使用单位

Question

我正在将一个 Lazarus 项目搬到西雅图的德尔福。

Lazarus 项目依赖于 40 多个单元（包括控件）并有多个应用程序。

在所有项目的使用条款中，他们使用了以下内容：

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, DBCtrls, {$I OurLibrary.inc};    

他们将这 40 多个单元包含在 $I OurLibrary.inc 中。

因为其中一些单元是控件，所以我在 Delphi 中注册了它们。

但是，如果我保存项目或构建/编译它，Delphi 会再次将单位添加到使用部分。

  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, DBCtrls, uOurEdit, {$I OurLibrary.inc}; 

在这种情况下，单元 uOurEdit 被再次添加，即使它位于 $I OurLibrary.inc 中。

如果我手动删除它并再次编译项目，它就会运行。 一旦我切换回设计器模式并尝试运行它，同样的事情就会不断发生 - 它会再次添加 uOurEdit。

一旦你移除了一个单位，Lazarus 就不会再添加它。 Delphi 就是这样做的。

有没有办法告诉 Delphi 停止读取单位或停止自动添加单位？

Answer 1

我同意使用包含文件不是一个好主意，但实际上有一种方法可以阻止 IDE 自动添加这些单元。

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, DBCtrl,
  {$IFDEF DUMMY}
  // add those units here which you don't want to automatically add
  // the IDE won't add them but they won't be part of the uses assuming
  // DUMMY is undefined
  uOurEdit,
  {$ENDIF}
  // Here comes the rest of the units
  {$I OurLibrary.inc};

这可能对您不起作用，因为无论如何您都必须手动添加uOurEdit，所以也许最好听从 Rob 的建议。然而，这种技术可用于停止 IDE 自动添加单元。

Answer 2

IDE 认为您的代码的某些部分在其控制之下。这包括大部分 DPR 文件、表单或数据模块声明的默认 published 部分，以及单元的 interface 部分的 uses 子句。最好不要在这方面与 IDE 抗争。你最终会输。

我不建议在uses 子句中使用include 指令。正如您已经注意到的，IDE 不会读取包含的文件来确定单元列表。表单设计器会自动添加它认为需要的单元，而且没有办法阻止它。

由于 IDE 会在使用控件时自动添加控件单元，因此您应该能够安全地从包含文件中删除它们。

您还可以考虑将您的单位列表移动到implementation 部分的uses 子句中。 IDE 不会触及那个。