用简单的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.