Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

delphi-benchmark

Lightweight benchmark for Delphi

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Basic usage

pascal
procedure ProcA;
begin
  var T := GlobalBenchmark['ProcA'].Start;
  ...
  T.Stop;
end;

procedure ProcB;
begin
  var T := GlobalBenchmark['ProcB'].Start;
  ...
  T.Stop;
end;

procedure ShowBenchmark;
begin
  ShowMessage(GlobalBenchmark.Dump);
end;

Example of results:

pascal
Elapsed: 13.9413 ms; Timings: 92; Avg: 0.1515 ms; Min: 0.025 ms; Max: 4.2468 ms; First: 0.0463 ms; Last: 0.1318 ms
  Name: ProcA; Elapsed: 3.3347 ms; Timings: 46; Avg: 0.0725 ms; Min: 0.0247 ms; Max: 0.2645 ms; First: 0.0419 ms; Last: 0.0949 ms
  Name: ProcB; Elapsed: 10.5203 ms; Timings: 46; Avg: 0.2287 ms; Min: 0.0302 ms; Max: 4.2461 ms; First: 4.2461 ms; Last: 0.1315 ms