Delphi EXPERT ToolServices.getCurrentFile не работает

Question

Что представляет собой новый способ получения текущего файла, над которым работает Эксперт для Delphi XE

Ранее в Delphi 5-7 мы использовали ToolServices.getCurrentFile

Answer 1

Возможно, устаревшие единицы ToolIntf, ExptIntf и т. Д. Больше не работают. Вы можете использовать IOTAModuleServices.CurrentModule вместо этого. Вот быстрый пример:

function GetCurrentEditorFileName: string;
var
  Module: IOTAModule;
  Editor: IOTAEditor;
begin
  Result := '';
  Module := (BorlandIDEServices as IOTAModuleServices).CurrentModule;
  if Assigned(Module) then
  begin
    Editor := Module.CurrentEditor;
    if Assigned(Editor) then
      Result := Editor.FileName;
  end;
end;

Answer 2

Альтернативный метод - передать «имя файла в редакторе» вашему инструменту в качестве параметра. $ EDNAME