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 split 方法使用

Delphi 拦截tab按键消息

Delphi关于tjpegimage的使用(bmp\ jpg格式转换）

Delphi tcomport控件从串品读取数据

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi 动态更改webbrowser数据流内容

Delphi memo 内容每n行分批处理

Delphi制作透明窗体

Delphi 字符串操作之格式化

Delphi idhttpserver实现webservice

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

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