Skip to content

Instantly share code, notes, and snippets.

@synopse

synopse/gist:fd2265c7375885c48b59e483bdb49b3d

Created January 14, 2021 14:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save synopse/fd2265c7375885c48b59e483bdb49b3d to your computer and use it in GitHub Desktop.
Save synopse/fd2265c7375885c48b59e483bdb49b3d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
procedure test2;
var timer: TPrecisionTimer;
i: integer;
begin
timer.Start;
for i := 1 to 100000 do
IdemPCharArray('DELETE', ['POST', 'PUT', 'DELETE', 'UPDATE']);
writeln(timer.Stop,' ', timer.PerSec(10000));
timer.Start;
for i := 1 to 100000 do
IdemPCharArray('DELETE', 'POPUDEUP');
writeln(timer.Stop,' ', timer.PerSec(10000));
readln;
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment