[fpc-pascal] Re: benchmarking functions

[leledumbo]

What I use:

uses
  SysUtils,DateUtils;
var
  BeginTime,EndTime: TDateTime;
begin
  BeginTime := TimeOf(Now);
  // call the function here
  EndTime := TimeOf(Now);
  // whatever you need to do
  WriteLn(SecondSpan(BeginTime,EndTime)); // change to whatever XXXSpan
function you like
end.


--
View this message in context: http://free-pascal-general.1045716.n5.nabble.com/benchmarking-functions-tp5489920p5490003.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.