delphi - 如何使用 OTA 获取文件错误？

Question

我想访问事件文件 (.pas) 上的错误。现在，我可以在 IDE 的左侧找到它，正如您在图像中看到的那样。

我在OTA上发现了接口(interface)IOTAModuleErrors，这似乎就是我想要的。但我在BorlandIDEServices.QueryInterface或BorlandIDEServices.GetService上没有找到它。有人知道如何访问它吗？

Answer 1

我找到了!它比我想象的要简单得多，只需将模块上的 IOTAModule 转换为 IOTAModuleErrors 即可。

如果你想要一个实际的例子，你可以查看 this project我在 Source/FindUnit.OTAUtils.pas 单元的 GetErrorListFromActiveModule 函数上使用。

示例:

function GetErrorsListFromActiveModule: TOTAErrors;
var
  ModuleServices: IOTAModuleServices;
  ModuleErrors: IOTAModuleErrors;
begin
  ModuleServices := BorlandIDEServices as IOTAModuleServices;
  Assert(Assigned(ModuleServices));
  ModuleErrors := ModuleServices.CurrentModule as IOTAModuleErrors;
  Result := ModuleErrors.GetErrors(ModuleServices.CurrentModule.FileName);
end;

谢谢