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}

posted @   海利鸟  阅读(1138)  评论(0编辑  收藏  举报
编辑推荐:
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
· C++代码改造为UTF-8编码问题的总结
阅读排行:
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库
点击右上角即可分享
微信分享提示