应该算是在说 delphi 的日志框架吧

最早接触 delphi 的日志是在 B 站上一个自称老侯的人发的视频里，视频名是 [delphi基础教程第一季]

这个应该是他在B站的个人空间吧 https://space.bilibili.com/323024121

后来找 log4D 资料的时候找到了这个网站 http://www.raebear.net/

记录 Log4D 的几句代码, 方便以后复制

 1   { 关于日志输出模式的简单说明:
 2     %d 时间, %t 线程, %c 日志器名称, %p 日志级别, %x 忘了,
 3     %r 运行时间(毫秒), %m 要记录的消息, %e 异常, %n 换行
 4   详细请见 Log4D.pas L2256 }
 5 
 6   // 自定义日志某些配置
 7   LConfig.LogLevel          := Warn;
 8   LConfig.LogPattern        := '%d [%t] %c [%-5p] - %x [%r]-- %m %e%n';
 9   LConfig.LogDateTimeFormat := 'yyyy-MM-dd HH:mm:ss';
10   LConfig.LogFileName       := '/tmp/log/program-datetime.log';
11   LConfig.MaxFileSize       := '2MB';
12   LConfig.MaxBackupIndex    := '2';
13 
14   // 创建 Appender
15   LAppender := TLogRollingFileAppender.Create('DefaultAppender', LConfig.LogFileName,
16                                               TLogPatternLayout.Create(LConfig.LogPattern));
17   LAppender.Layout.Options[DateFormatOpt] := LConfig.LogDateTimeFormat;
18   LAppender.Options[MaxFileSizeOpt]       := LConfig.MaxFileSize;
19   LAppender.Options[MaxBackupIndexOpt]    := LConfig.MaxBackupIndex;
20 
21 
22   // 为了避免非预期的行为还是调用一下 reset 吧
23   TLogBasicConfigurator.ResetConfiguration;
24   TLogBasicConfigurator.Configure;
25 
26   TLogLogger.GetRootLogger.Level := LConfig.LogLevel;
27   TLogLogger.GetRootLogger.AddAppender(LAppender);
28 
29 
30   // 这样输出日志
31   TLogLogger.GetLogger('some-logger-name').Info('Some text to log.');
32 
33 
34