自己写的一个测试函数执行效率的单元(test on Delphi 7)
摘要:
运用了一点技巧来实现对函数进行效率测试使用方法:uses Profile;.......function TForm1.Func1():string;begin TFunctionTimeProfiler.ExecuteTest(ClassName, 'Func1'); //这里会创建一个接口实例,并开始测试; 此实例会自动释放并结束测试 ....end;程序最后退出会自动生成一详细... 阅读全文
posted @ 2004-11-04 14:39 Icebird 阅读(2434) 评论(1) 推荐(0) 编辑