Measure the run time in pascal program

Question

Hi

Please, I need to measure the search time in my pascal program in order to measure the performance efficient.. if there is any function or code to measure the search time?

thanks

Answer 1

Try this

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

  // do your process

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