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');