0

我正在尝试恢复和编译 XE2 下的一些旧资源。

有一个例程使用在 ExptIntf.pas（已弃用）中定义的“ToolServices.GetUnitCount”作为 ToolServices：TIToolServices = nil;

而且，TIToolServices 在 ToolIntf.pas （也已弃用）中定义为 TIToolServices = class(TInterface)

最后，GetUnitCount 被描述为“返回属于该项目的当前单元数”。

问题是：我如何（不使用 ExptIntf.pas 或 ToolIntf.pas）获得属于该项目的当前单元数？

4

2 回答 2

1

正确的响应取决于您的代码的作用，但好的候选人可能是：

  • IOTAProject40

    { Return the number of owned modules }
function GetModuleCount: Integer;
{ Return the Indexed owned Module Info }
function GetModule(Index: Integer): IOTAModuleInfo;
{ Return the Project options }

  • IOTAProject140

    { Returns a list of fully qualified file names.  This will contain files
  that do not show up in the project manager, for example, the project's
  .res file }
procedure GetCompleteFileList(FileList: TStrings);

两者都是IOTAProject界面的祖先，所以你手头有两种口味。要使用 Open Tools API，您必须使用该ToolsAPI单元。看看source\ToolsAPI你的 Delphi 安装文件夹。

于 2013-04-16T05:03:07.107 回答
0

XE2 和 XE3 帮助文件中有关于'Extending API'的文档，它为您提供有关使用模块和文件以及使用编辑器资源的信息。“EditorViewAPI”的演示可能对您有所帮助。所有服务都可以通过 ToolsAPI 和 IOTAServices 接口获得。与早期版本相比，文档和示例要多得多。EditorViewAPI 是一个实际安装的示例应用程序，您可以对其进行试验以了解其工作原理。

于 2013-04-16T03:08:17.493 回答