search - 在帕斯卡程序中测量运行时间

Question

请，我需要测量我的帕斯卡程序中的搜索时间以测量性能效率。如果有任何函数或代码来测量搜索时间？

谢谢

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 没有找到“现在”-Function..

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

喜欢：

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

  // do your process

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