简单的调试以及异常触发显示行号记录行号的类

dorry 4月前 354

实际上是HOOK了system的Assert,在 ZytDebug.pas里,通过命令行输入 debug 还是 log。


/Debug 在错误处调用 Assert 可以显示行号??

ZytDebug.pas 有三个函数

procedure Debug(const S: string);

procedure DebugEnter(const S: string);

procedure DebugLeave(const S: string);

可以在 IDE debug窗口中中形成类似的缩进的效果。


有两个单元 ZytDebug.pas和Zytlogger.pas。

Zytlogger.pas 仅对 PFeng 的日之类进行了接口封装,自创建自销毁。仅两个函数:

1:  function ZytLog:IZytLogger; overload;

2:  function ZytLog(LogDir: AnsiString;LogShower:TComponent=nil):IZytLogger;overload;

直接调用即可。第二个可以指定日志显示容器载体。

希望对初学者有帮助。

支持delphibbs 重开。

附件为简单测试。

上传的附件:
最新回复 (2)
返回