Delphi 调试日子 - TLogger

这段时间又开始用delphi了，才发现我对它这么的不熟悉！

简单的而有效的调试工具 Logger 这个是“榕树下”的作品，小巧而精悍。稍微调整了一下。在需要的地方加入

{$IFDEF DEBUG}

Logger.WriteLog('SetKeyDatetime ok %s', [DateTimeToStr(FKeyDatetime)], llDebug);

{$ENDIF}

当然如果在 每个文件中加入一个 {$I debug.inc},通过这个文件可以方便的控制调试输出，比如

debug.inc文件内容：

{$IFDEF DEBUG}

{$DEFINE MENUBUIDE}//菜单构建

//{$DEFINE MENULOAD}//菜单载入

//{$DEFINE MENURELATION}//菜单关联

{$DEFINE MENUACTION}//菜单动作

{$DEFINE DEBUGREPORT}//报表调试

{$DEFINE DEBUGMAINTAIN}//维护功能调试

{$ENDIF }

如果使用了以上debug.inc这时logger不会输出，编译跳过。

{$IFDEF MENULOADDEBUG}

Logger.WriteLog('Menuload ok %s',llDebug);

{$ENDIF}