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. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
