OTA kullanarak dosya hataları nasıl alınır?

Question

Etkin dosyadaki (.pas) hatalara erişmek istiyorum. Şimdi bir gün, görüntüde gördüğünüz gibi IDE'nin sol tarafında bulabiliyorum.

OTA'da IOTAModuleErrors arabirimini buldum, istediğim gibi görünüyor. Ama ben BorlandIDEServices.QueryInterface veya BorlandIDEServices.GetService üzerinde bulamadım. Birisi ona nasıl erişeceğini biliyor mu?

Answer 1

Ben buldum! Düşündüğümden çok daha basit, sadece IOTAModule modülünde IOTAModuleErrors'a dökülme meselesi.

Eğer pratik bir örnek isterseniz ben işlev GetErrorListFromActiveModule üzerinde, birim Kaynak/FindUnit.OTAUtils.pas kullanmak this project kontrol edebilirsiniz.

Örnek:

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; 

teşekkür ederiz