用简单的Tracer类来为应用写入跟踪

{ TDatabaseLog }

constructor TDatabaseLog.Create(WriteProc: TProcStr); 
begin 
    FWriteProc := WriteProc; 
    if not Assigned(FWriteProc) then raise Exception.CreateFmt('没有传入正确的写入跟踪方法%s!!!', []); 
end;

procedure TDatabaseLog.Write(const aInfo: ITraceInfo); 
begin 
    FWriteProc(aInfo.ToString); 
end;

end.

===========测试代码===========
{************************} 
{                                                } 
{          测试名称：                  } 
{          作    者：                      } 
{          版    本：                     } 
{          说    明：                     } 
{          备    注：                    } 
{                                              } 
{***********************}

unit test.com.sunset.app.tracer;

interface

uses 
  Windows, SysUtils, Classes, TestFramework, TestExtensions, 
  com.sunset.app.tracer;

type 
  TTest = class(TTestCase) 
  protected 
    procedure SetUp; override; 
    procedure TearDown; override;

  published 
    procedure TestTracer; 
  end;

implementation

procedure TTest.Setup; 
begin

end;