【更新说明】 1、新增的 CalcPerf 函数可以用来统计一个函数的执行时间,只需要在函数的开始位置调用它就可以了。您需要为它指定一个字符串标签(Tag),以便在日志中区分不同的函数调用。示例代码如下:
1 2 3 4 5 |
procedure TForm2.Button2Click(Sender: TObject); begin CalcPerf('Button2Click'); Sleep(1000); end; |
实际输出日志内容如下: [16:30:46.68