最早接觸 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 ---------

轉載于:https://www.cnblogs.com/shadow-abyss/p/11142644.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的应该算是在说 delphi 的日志框架吧的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。