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}