Search 在pascal程序中测量运行时间

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

谢谢你试试这个

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

  // do your process

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

---

它对我也不起作用，因为免费的Pascal找不到“现在”函数

我只是在Bharats答案中添加了“usesystutils”，它对我来说很好

比如：

---

我的操作系统有一个

time

命令。你用的是什么操作系统？谢谢我用的是Windows 7 Ultimate谢谢你的回复，我应用了它，但它不起作用，因为我用的是Trubo pascal 1.5。。。我想还有另外一个函数，比如TimerCount，GetTickCount，等等。如果你有这个函数的编码，你能帮我吗？？谢谢我很惊讶TurboPascal1.5甚至可以在Windows7上运行。

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

  // do your process

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