如何通过Delphi中的Toolsapi获取模块的结构?
题
我想通过ToolsApi获取模块(Pascal单元)的结构信息。就像IDE的结构视图一样。
类,记录,接口,变量/常数等成员,参数等。
是否已经有一种简单有效的方法来获取这些元数据?
解决方案
也许使用 解析器 不是那么坏主意吗?
其他提示
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;
不隶属于 StackOverflow