在pascal程序中测量运行时间

Question

请，我需要在我的pascal程序中测量搜索时间，以便衡量性能效率..如果有任何函数或代码来衡量搜索时间？

谢谢

Answer 1

试试这个

uses DateUtils;
var
  FromTime, ToTime: TDateTime;
  DiffMinutes: Integer;
begin
  FromTime := Now;

  // do your process

  ToTime := Now;
  DiffMinutes := MinutesBetween(ToTime,FromTime);
end;

Answer 2

它对我也没有用，因为Free Pascal没有找到“Now”-Function ..

我只是在Bharats答案中添加“使用sysutils”，它对我来说很好用！

像：

uses DateUtils, sysutils;
var
  FromTime, ToTime: TDateTime;
  DiffMinutes: Integer;
begin
  FromTime := Now;

  // do your process

  ToTime := Now;
  DiffMinutes := MinutesBetween(ToTime,FromTime);
end;