log4D for Delphi XE 7

说明： 原版Log4D请在此http://sourceforge.net/projects/log4d/下载 原版包含如下6个文件 Defines.inc log4d.dtd Log4D.pas Log4DIndy.pas Log4DNM.pas Log4DXML.pas 原版不支持Delphi XE 7，本版Log4D.pas完全支持XE 7，并且不再需要Defines.inc和log4d.dtd 本版未修改Log4DIndy.pas、Log4DNM.pas、Log4DXML.pas，因此不附上这3个文件的源码 使用方法： 1 将log4D.pas加入到工程中，并在工程文件中添加如下一行： TLogPropertyConfigurator.Configure('log4d.properties'); 通常放在 Application.Initialize; 的后面 2 创建一个配置文件log4d.properties，并放到与编译生成的可执行文件相同的目录中。本版附带了一个log4d.properties供参考 3 以下是使用log4D的样例代码： unit TestClass; interface uses log4D; type TTestClass = class private FLogger: TLogLogger; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Test; end; implementation { TTestClass } constructor TTestClass.Create(AOwner: TComponent) { inherited; FLogger := TLogLogger.GetLogger(Self.ClassType); } destructor TTestClass.Destroy{ FreeAndNil(FLogger); inherited; } procedure TTestClass.Test{ FLogger.Error('Test error message'); } end.