这段时间又开始用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}