paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 21:29:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* md5performancetest now gives better granularity on the elapsed time

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-09-22 13:40:52 +01:00 committed by FPK
parent a23441394b
commit afc981d2cb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/hash/examples/md5performancetest.pas
View File

@ -15,6 +15,7 @@ var
StartTime: TDateTime;
EndTime: TDateTime;
i: integer;
TimeTaken: string;
s,ss: RawByteString;
begin
writeln('MD5 of a million "a" symbols');
@ -27,6 +28,7 @@ begin
ss := LowerCase(MDPrint(MDString(s, MD_VERSION_5)));
EndTime:=now;
writeln('Performance test finished. Elapsed time:');
writeln(TimeToStr(EndTime-StartTime));
DateTimeToString(TimeTaken, 'S.ZZ', EndTime-StartTime);
WriteLn('Average time taken = ', TimeTaken, ' ms');
end.