网站运营 解决方案,凡科网站建站教程,广州市网站建设 骏域,网站开发干啥的最早接触 delphi 的日志是在 B 站上一个自称 老侯 的人发的视频里#xff0c;视频名是 [delphi基础教程 第一季] 这个应该是他在B站的个人空间吧 https://space.bilibili.com/323024121 后来找 log4D 资料的时候找到了这个网站 http://www.raebear.net/ 记录 Log4D 的几句代码… 最早接触 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
