首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi 新建unit以后,自动添加unit注解

2013-04-09 
delphi 新建unit之后,自动添加unit注解我想每次在new 一个unit或者form时,在.pas档中 unit上面,自动添加下

delphi 新建unit之后,自动添加unit注解
我想每次在new 一个unit或者form时,在.pas档中 unit上面,自动添加下面的注解


delphi中能设置么???


//*****************************************************
//*Unit Name    :XXX
//*Description  :XXX
//*Author       :XX
//*Created      :XXX
//*Company      :XXX
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[解决办法]
当然可以!
制作窗体或单元模板!
不过没什么意义!
用CnPack可以直接生成单元头和过程头!
[解决办法]
Tools API可以自己写,或者用CnPack

热点排行