Delphi 计算运行耗时的方法1

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);
var
startTime: Cardinal;

begin
startTime := GetTickCount;

Sleep(10);

Label1.Caption := '耗时: ' + (GetTickCount - startTime).ToString;
end;

Delphi 计算运行耗时的方法2
http://www.delphitop.com/html/shijian/4382.html
 

相关阅读 >>

Delphi unigui从数据表里下载流文件

Delphi中三种方法获取windows任务栏的高度

Delphi 格式化输出函数(2): formatdatetime

Delphi 计算imei的校验位

Delphi 数据库char varchar nvarchar区别

Delphi的idhttp报508 loop detected错误的原因

Delphi监视注册表

Delphi unigui unicheckbox勾选

Delphi 提取html网页源文件纯文本函数可做采集

Delphi 判断系统服务是否运行

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

转载请注明出处：木庄网络博客 » Delphi 计算运行耗时的方法1