正在阅读：用简单的Tracer类来为应用写入跟踪用简单的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;