Wie erhalten Sie Fehler der Datei mit OTA?

Question

Ich möchte auf die Fehler in der aktiven Datei (.pas) zugreifen. Jetzt ein paar Tage kann ich es auf der linken Seite der IDE finden, wie Sie auf dem Bild sehen können.

Ich fand auf OTA die Schnittstelle IOTAModuleErrors, das scheint zu sein, was ich will. Aber ich habe es nicht auf BorlandIDEServices.QueryInterface oder BorlandIDEServices.GetService gefunden. Jemand weiß wie man darauf zugreift?

Answer 1

Ich fand es! Es war viel einfacher als ich dachte, es ist nur eine Frage des Gießens des IOTAModule auf dem Modul zu IOTAModuleErrors.

Wenn Sie ein praktisches Beispiel möchten, können Sie überprüfen, this project Ich verwende auf der Einheit Quelle/FindUnit.OTAUtils.pas, auf Funktion GetErrorListFromActiveModule.

Probe:

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; 

Danke