正在阅读：用简单的Tracer类来为应用写入跟踪用简单的Tracer类来为应用写入跟踪

procedure TTest.TearDown;
begin

end;

procedure TTest.TestTracer;
var
    tracer:TTracer;
    aInfo:ITraceInfo;
const
    testData ='adfadfdasf';
    testFile ='d:\2.txt';
begin
    aInfo := TStringTI.Create(testData);
    Tracer := TTracer.Create(TFileLog.Create(testfile));
    Tracer.Write(aInfo);
    Tracer.Free;
    aInfo := nil;
    with TStringList.Create do
    begin
        LoadFromFile(testfile);
        Check(Strings[Count -1] = testData);
        Free;
    end;
end;

initialization
  TestFramework.RegisterTest(TTest.Suite);

end.