HCMCT Studio

软件改变生活

CodeSite 的使用方法 for Delphi XE2

CodeSite是调试程序的强大助手,启用CodeSite,要先引用CodeSiteLogging单元

在工程文件里做如下设置,可非常方便启用或禁用CodeSite,并用程序里关于CodeSite的代码也不用删除.

 

 ------------------------------------------工程文件里引用--------------------------------------------

var
    Destination: TCodeSiteDestination;
  begin
    Application.Initialize;
    {$IFDEF DEBUG}
    CodeSite.Enabled := True;
    CodeSite.Enabled := CodeSite.Installed;
    if CodeSite.Enabled then
    begin
      Destination := TCodeSiteDestination.Create(Application);
      Destination.LogFile.Active := True;
      Destination.LogFile.FileName :=
        ChangeFileExt(ExtractFileName(Application.ExeName), '.csl');
      Destination.LogFile.FilePath := '$(MyDocs)\My CodeSite Files\Logs\';

      Destination.Viewer.Active := True;
      CodeSite.Destination := Destination;
      CodeSite.Clear
    end;
    {$ELSE}
    CodeSite.Enabled := False;
    {$ENDIF}

 

------------------------------------------------------------------------------------------------------

 

使用方法,在需要显示变量处,加 CodeSite.Send即可, Send的参数如下图

 

 

Constant Value
csmInfo $0
csmWarning $1
csmError $2
csmCheckPoint $3
csmReminder $17
csmSeparator $b
csmInactiveSeparator $c
csmLevel1, csmRed $18
csmLevel2, csmOrange $19
csmLevel3, csmYellow $1a
csmLevel4, csmGreen $1b
csmLevel5, csmBlue $1c
csmLevel6, csmIndigo $1d
csmLevel7, csmViolet $1e

 

CodeSite.Send(csmLevel1, 'Level 1 = Red');

阅读更多
文章标签: delphi application
想对作者说点什么? 我来说一句

CODESITE STUDIO 5.3.1

2017年03月28日 64.12MB 下载

<em>CodeSite</em>5.1.5

2018年05月21日 0B 下载

<em>codesite</em>5 pro

2018年04月06日 0B 下载

<em>CodeSite</em>2.0

2016年07月29日 0B 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭