CnPack Forum


 
Subject: 源码模板专家里有一个问题很不方便
luohuachun
新警察
Rank: 1



UID 36048
Digest Posts 0
Credits 4
Posts 1
点点分 4
Reading Access 10
Registered 2008-1-14
Status Offline
Post at 2008-1-14 19:40  Profile | Blog | P.M. 
源码模板专家里有一个问题很不方便

现在添加标准过程头就形成了如下的样子:

{-------------------------------------------------------------------------------
  过程名:    TForm1.qry1bbbSetText
  作者:      Luohuachun
  日期:      2008.01.14
  参数:      Sender: TField; const Text: String
  返回值:    无
  说明:
-------------------------------------------------------------------------------}
procedure TForm1.qry1bbbSetText(Sender: TField; const Text: String);
begin
  //ShowMessage(Text);
end;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
能不能弄成如下这个样子的呢?因为在将上面的代码导入到modelMaker中的时候,过程的注释被丢了顶上去了.再从ModelMaker中导出来的时候,已经弄的面目全非了.这个工程太大了.这么多的注释我只好一个个的放在过程名的第一行下面.累死人!感觉非常不方便.能直接生成当前光标处的过程注释就好了.

procedure TForm1.qry1bbbSetText(Sender: TField; const Text: String);
{-------------------------------------------------------------------------------
  过程名:    TForm1.qry1bbbSetText
  作者:      Luohuachun
  日期:      2008.01.14
  参数:      Sender: TField; const Text: String
  返回值:    无
  说明:
-------------------------------------------------------------------------------}
begin
  //ShowMessage(Text);
end;
Top
 




All times are GMT++8, the time now is 2024-11-23 13:32

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.007819 second(s), 8 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP