请,我需要测量我的帕斯卡程序中的搜索时间以测量性能效率。如果有任何函数或代码来测量搜索时间?
谢谢
尝试这个
uses DateUtils;
var
FromTime, ToTime: TDateTime;
DiffMinutes: Integer;
begin
FromTime := Now;
// do your process
ToTime := Now;
DiffMinutes := MinutesBetween(ToTime,FromTime);
end;
它也对我不起作用,因为 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;