关于开发Delphi的IDE插件的问题。
我想开发一个IDE插件,其中一个功能就是在当前.dpr文件中所有.pas中每一个主函数的'Begin’之后和'End'之前加入自己的自定义注释。
比如
procedure TForm1.Button1Click(Sender: TObject);
begin
...//mycode
end;
就变成
procedure TForm1.Button1Click(Sender: TObject);
begin
//函数说明:
...//mycode
//函数结束
end;
遇到这种情况:
procedure TForm1.Button1Click(Sender: TObject);
begin
...
Function aa():Boolean;
begin
end;
...
end;
中间的'Begin'和'end’不用处理,因为它是嵌套在主函数内部的。
处理所有.pas单元文件可以调用EnumProc,主要问题是如何找到主函数的Begin和End,进行相关的处理呢?