如何通过Delphi中的Toolsapi获取模块的结构？

Question

我想通过ToolsApi获取模块（Pascal单元）的结构信息。就像IDE的结构视图一样。

类，记录，接口，变量/常数等成员，参数等。

是否已经有一种简单有效的方法来获取这些元数据？

Answer 1

也许使用 解析器 不是那么坏主意吗？

Answer 2

AFAIK无法查询给定文件的特殊结构化信息。

您可以做的是访问结构窗格中的信息。这样，文件要求文件为活动模块（可以通过OTA实现），输出取决于结构窗格设置（工具|选项...->环境选项| Explorer），如果节点是一个字段，则过程或需要通过图像索引确定的任何内容，父母...

该代码漫游结构窗格。

procedure StructureViewToSL(ASL: TStringList);

  procedure TreeToSL(ANode: IOTAStructureNode; ASL: TStringList; const APrefix: string);
  var
    I: Integer;
  begin
    ASL.Add(APrefix + ANode.Caption);
    for I := 0 to ANode.ChildCount - 1 do
      TreeToSL(ANode.Child[I], ASL, APrefix + '  ');
  end;

var
  StructureView: IOTAStructureView;
  StructureContext: IOTAStructureContext;
  Node: IOTAStructureNode;
  I: Integer;
begin
  StructureView := BorlandIDEServices as IOTAStructureView;
  StructureContext := StructureView.GetStructureContext;
  for I := 0 to StructureContext.RootNodeCount - 1 do
  begin
    Node := StructureContext.GetRootStructureNode(I);
    TreeToSL(Node, ASL, '');
  end;
end;