OTAを使用してファイルのエラーを取得する方法は？

Question

私はアクティブファイル（.pas）のエラーにアクセスしたいと思います。 これで、IDEの左側にイメージが表示されます。

私はOTAのインタフェースIOTAModuleErrorsを見つけました。これは私が望むようです。しかし、BorlandIDEServices.QueryInterfaceやBorlandIDEServices.GetServiceでは見つかりませんでした。誰かがそれにアクセスする方法を知っていますか？

Answer 1

私はそれを見つけました！ これは私が思ったよりはるかに簡単でした。モジュール上のIOTAModuleをIOTAModuleErrorsにキャストするだけです。

あなたは実用的な例をしたい場合は、私は、関数GetErrorListFromActiveModuleに、ユニットのソース/ FindUnit.OTAUtils.pasに使用this project を確認することができます。

サンプル：

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; 

あなたがここに将来の読者の利益のためにいくつかのサンプルコードを投稿することができ