delphi 另类计算程序代码运行耗时

本文整理自网络，侵删。

 

var
  d: TDateTime;
begin
 d:= Now();
//--------------------
代码
//---------------------
 StatusBar1.Panels[0].Text:='耗时：'+ FormatDateTime('hh:nn:ss.zzz', (Now-d));


 

相关阅读 >>

Delphi 2009 之 tcategorypanelgroup[3]: color

Delphi xe5复制粘贴操作

Delphi 获取系统启动文件夹路径

Delphi 实现 托动pagecontrol上的标签页

Delphi dbgrid1查询只显示50条记录修改

Delphi逐个读取access中的数据

Delphi tstreamreader 和tstreamwriter

Delphi xe5 android手机端转换ansi字符串

Delphi 个人所得税计算函数

Delphi根据进程pid等待进程结束或者结束进程

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 另类计算程序代码运行耗时