当前位置：文江博客话题详情

Delphi EXPERT ToolServices.getCurrentFile 失败

发布于 2024-12-08 22:13:04 字数 103 浏览 2 评论 0原文

获取 Delphi XE Experts 中正在处理的当前文件的新方法是什么？

以前在 Delphi 5-7 中我们使用 ToolServices.getCurrentFile

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

像极了他 2024-12-15 22:13:04

也许已弃用的单元 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;

Perhaps the deprecated units ToolIntf, ExptIntf etc. are no longer working. You can use IOTAModuleServices.CurrentModule instead. Here's a quick example:

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;

回复收藏 0 原文