delphi - "unused"类可以在Delphi XE中使用吗

Question

我正在使用 Delphi XE、Windows 7。

在应用程序中，我想启用不同的报告类型供用户选择。为此，我有 1 个基本报告类和每个报告类型(xml、csv、ppt 等)的子类。

{Just an illustrating example}
TBaseReport = class
public
  constructor Create;
  procedure GenerateReport; virtual; abstract;
  class function ReportType: string; virtual; abstract;
end;

T*Report = class(TBaseReport);
//Etcetera.

我想要做的是使用 Rtti 检测所有报告类并列出它们的 ReportType。之后，我想使用 Rtti 创建所选报告类的实例并调用GenerateReport。总而言之，实现这一点并不是太难。

但是有一个主要缺点:我从来没有对降序类的使用进行硬编码，因此代码不会包含在可执行文件中。

是否有一种合适的方法来强制链接器/编译器包含这些类？

一个(丑陋的)解决方法是在初始化部分模拟报告的使用，但我不想这样做。更好的解决方案是使基类持久化并调用“RegisterClass(T*Report);”在初始化部分。它有效，但我认为没有任何其他需要让它们持久存在，所以再说一次，我宁愿不这样做。另一方面，也许这是唯一的方法？

提前致谢。

Answer 1

您可以创建自己的 RegisterClass 版本。类似 RegisterReportClass 之类的东西。在内部，您可以保留自己的可以使用的报告类列表。您的注册函数将采用 TBaseReport 类类型 - 不需要 TPersistent。

您的 RegisterReportClass 方法应在初始化部分中调用，以确保包含这些类。

如果您查看图形单元，您可以看到 TFileFormatsList = class(TList)。该类用于保存不同的图形类型，并且可以用作创建您自己的 TReportFormatsList 的示例。 Delphi 使用静态函数 TPicture.RegisterFileFormat 将项目添加到其内部列表中。