怎么给Unit动态添加注释?

Question

我想把Unit注释,Procedure注释,写成类似模板的东西，然后遍历文件夹下面的pas文件,自动添加注释，请问如何实现,主要是为了提高注释的效率.
例如:Unit utlTestinterfaceuses
**,**,**
Type 
    TestClass=Class
procedure testFunction();end;implements
/////////////////注释的模版加在这里
////////////////////
function TestClass.testFunction();
begin
***********************
end;
end.

Answer 1

自己对.pas 逐行分析吧
  
--------------------------------------------------------------
程序，犹如人生。