最早接触 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
------------------
讨厌 delphi，尤其 delphi 7 ，让某些垃圾搞得改都没法改，换语言都不好换，除了一堆屎一样的代码什么都没有，
文档和注释什么的都是奢侈品，根本不存在文档和注释，除了被注释掉的烂代码。
copy 代码也它喵的6的一13，不知道哪里来的代码，粘贴来改几个变量值，用不到的代码一注释，变量名都不改，有一大堆变量瞎J8操作一番，最后没有用
只在类内部使用的变量非要污染全局，变量取名尽是些flag1 flag2 .. flagn，我知道那是肝妮妹的？？ 参数列表长度超40
--------- THE END ---------