是否可以包含基于组件属性的文件（链接）？

Question

Delphi 2007/2009 奇怪的问题在这里：

基于设计时定义的组件属性，可以在链接中包含文件还是保留它们？

示例：如果我将 SomeProperty 保留为 true，则在编译时，单元 SomeUnit 将包含在我的项目中。 否则将不会被包括在内。

我解决此问题的第二种方法是部署第二个组件，当将其放入表单（或不放入）时，该组件将包含 uses 子句中的单元。 但如果能用财产来完成，那就更好了。

我想避免通过 IFDEF 进行条件编译，因为这会强制每次构建项目时都构建组件。 或不？

我正在尝试实现一种简单的方法，将一些单元包含在项目中，然后这些单元将为特定数据库提供支持。 将这些纳入连接组件的选项中将非常简单：检查支持即可完成。 取消选中，可以在编译的 APP 中减少一些 KB。

编辑：例如，我将继续使用组件方式。 我知道 IFDEF 方法和相关知识，但这迫使每次构建项目时都必须构建组件。 或不？

我试图实现一种简单的方法，在项目中包含一些单元，然后这些单元将为特定数据库提供支持。 将这些纳入连接组件的选项中将非常简单：检查支持即可完成。 取消选中，可以在编译的 APP 中减少一些 KB。

Answer 1

不，

你想解决什么问题？

您可以添加一个后编译步骤，该步骤可以选择包含一些基于组件属性的资源 - 但您必须执行一些编码才能实现此类功能。

Answer 2

您可以使用 {$IFDEF youridentifier} 可选代码 {$ENDIF} 方法有条件地将数据编译到您的应用程序中，然后只需转到您的项目选项并在相应的选项字段中输入 youridentifier 即可启用它。 另一种方法是将以下内容添加到单元顶部（或包含文件中）：

{$DEFINE youridentifier}

这将强制启用 youridentifier。 要禁用，只需在 $ 之前放置一个句点：

{.$DEFINE youridentifier}

使用这些技术，可以轻松地在每次编译时有条件地引入代码或替换代码。

Answer 3

编写 IDE 插件。 处理“编译前”通知并检查项目中的任何表单或数据模块是否具有您感兴趣的类型的组件，然后检查它们的属性。 根据您在那里找到的内容，您可以尝试修改一个单元的内容以使用您选择的其他单元。 这听起来确实不容易，但似乎有可能。

你的第二个想法很简单。 例如，这正是 TXPManifest 组件的作用。 请注意，从表单中删除此类组件不会“废弃”关联的单元。

要有条件地添加对不同数据库的支持，您可以考虑使用运行时包。 （毕竟，这就是 IDE 设法支持如此多不同类型的组件的方式。）将每个数据库的自定义代码放入不同的包中。 然后，您支持的数据库就是在运行时具有可用包的数据库。 无需编译时或设计时配置。 然而，这样做的障碍是管理哪些包可用，并确定其中哪些包提供数据库支持。

Answer 4

您的第二种方法不一定会按照您想要的方式起作用。 当您将组件拖放到表单上时，Delphi 会帮助您将必要的单元添加到您的使用列表中，但当您删除组件时，它不会删除该单元。 即使您不使用该单元的组件或任何其他导出实体，当初始化或中有代码时，该单元也可能会链接到您的应用程序。 >单元的最终确定部分。 不幸的是，这种情况经常发生，即使可以按需初始化内容。

Answer 5

无法执行您所要求的操作，但您可能没有意识到，包含在您的使用列表中但从未引用的单元将对可执行文件的大小产生最小的影响。 Delphi 中的智能链接器在删除从未使用过的代码方面做得非常好。 如果您小心组件引用的“可选单元”，并且其中没有任何全局执行的代码（所有内容都是自包含在一个或多个类中），那么它是否是无关紧要的在uses子句中但未使用，或者根本不在uses子句中。

这将很容易地让您做我认为您想做的事情，即在表单上放置一个组件，其中包含一个可以链接到您的应用程序的单元。 删除该组件将导致无法在单元中链接。 但是，我相信使用单元中的任何资源（例如 $R 指令包含的表单或其他项目）仍将包含在可执行文件中。

Answer 6

您可以使用 DesignIntf​​.RegisterSelectionEditor 注册选择编辑器（请参阅 Delphi 源代码中有关 ISelectionEditor 的注释），然后使用 RequiresUnits 过程在 use 子句中包含额外的单元。

TMySelectionEditor = class(TSelectionEditor)
public
  procedure RequiresUnits(Proc: TGetStrProc); override;
end;

procedure Register;

implementation

procedure TMySelectionEditor.RequiresUnits(Proc: TGetStrProc);
var
  comp: TMyComponent;
  I: Integer;
begin
  inherited RequiresUnits(Proc);
  Proc('ExtraUnit');  
  // might be a better way of doing the code from here onwards?
  if (Designer=nil)or(Designer.Root=nil) then Exit;

  for I := 0 to Designer.Root.ComponentCount - 1 do
  begin
      if (Designer.Root.Components[i] is TMyComponent) then
      begin
        comp := TMyComponent(Designer.Root.Components[i]);
        if comp.SampleProperty = True then
            Proc('ExtraUnit2');
        Proc(comp.ObjProperty.UnitName);
      end;
  end;
end;

procedure Register;
begin
  RegisterSelectionEditor(TMyComponent, TMySelectionEditor);
end;