paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write execution time more precisely

Browse Source 
git-svn-id: trunk@48843 -
This commit is contained in:
florian 2021-02-28 21:58:32 +00:00
parent ce3edc8c95
commit fb6867963f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
SysUtils,Classes,sha1,dateutils;
SysUtils,Classes,sha1;
var
StartTime: TDateTime;
@ -24,6 +24,6 @@ begin
ss := LowerCase(SHA1Print(SHA1string(s)));
EndTime:=now;
writeln('Performance test finished. Elapsed time:');
writeln(TimeToStr(EndTime-StartTime));
writeln((EndTime-StartTime)*3600*24:0:3,' s');
end.