怎么给Unit动态添加注释?

怎么给Unit动态添加注释? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061225123529122.html
我想把Unit注释,Procedure注释,写成类似模板的东西,然后遍历文件夹下面的pas文件,自动添加注释,请问如何实现,主要是为了提高注释的效率.  
  例如:  
   
  Unit   utlTest  
   
  interface  
   
  uses  
  **,**,**  
  Type    
          TestClass=Class  
  procedure   testFunction();  
   
  end;  
   
  implements  
   
   
  /注释的模版加在这里  
   
  function   TestClass.testFunction();  
  begin  
  ***********************  
  end;  
  end.  
 

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

如果一行一行分析,效率一定比较低.能给个参考代码看看,分不是问题.

想到一个方法,需要移动很多的行数,不知道有没有跟简单的方法。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值