本文整理自网络,侵删。
private lStart : Longint; lEnd : Longint; procedure GetStartTime; procedure GetEndTime; function GetRunTimes : Double;public
end; /////////////////////
procedure GetEndTime;begin lEnd := GetTickCount;end; function GetRunTimes: Double;begin Result := (lEnd - lStart) / 1000.0;end; procedure GetStartTime;begin lStart := GetTickCount;end;
//用法GetStartTime;//代码片段GetEndTime;
edit1.Text := FloatToStr(GetRunTimes);
Delphi 计算运行耗时的方法1http://www.delphitop.com/html/shijian/4340.html
相关阅读 >>
Delphi 获取随机字符串的方法 thash.getrandomstring
更多相关阅读请进入《Delphi》频道 >>