计算运行时间（耗时）

代码

var
  vTick: DWORD;
begin
  vTick := GetTickCount;
  
  //计算运行时间的代码...
  
  Application.MainForm.Caption := Format('耗时：%f 秒', [(GetTickCount - vTick) / 1000]);
end;

方法

GetTickCount

function GetTickCount;

unit

Winapi.Windows

返回自系统启动以来已经过去的毫秒数。

经过的时间存储为 DWORD 值。 因此，如果系统连续运行 49.7 天，时间将环绕到零。 若要避免此问题，请使用 GetTickCount64 函数。 否则，请在比较时间时检查溢出条件。

参考

GetTickCount 函数