-6

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

谢谢

4

2 回答 2

2

尝试这个

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

  // do your process

  ToTime := Now;
  DiffMinutes := MinutesBetween(ToTime,FromTime);
end;
于 2010-07-20T14:56:57.890 回答
0

它也对我不起作用,因为 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;
于 2016-05-19T19:12:55.620 回答