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

Question

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

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

Answer 1

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

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

样品：

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;

谢谢