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的参数如下图

 

 

ConstantValuecsmInfo$0csmWarning$1csmError$2csmCheckPoint$3csmReminder$17csmSeparator$bcsmInactiveSeparator$ccsmLevel1, csmRed$18csmLevel2, csmOrange$19csmLevel3, csmYellow$1acsmLevel4, csmGreen$1bcsmLevel5, csmBlue$1ccsmLevel6, csmIndigo$1dcsmLevel7, csmViolet$1e

 

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