2
0
Exilon 7 жил өмнө
parent
commit
d45ca1906f
1 өөрчлөгдсөн 14 нэмэгдсэн , 0 устгасан
  1. 14 0
      README.md

+ 14 - 0
README.md

@@ -1,4 +1,5 @@
 
 
+
 **QuickLib**
 **QuickLib**
 --------
 --------
 ----------
 ----------
@@ -92,6 +93,19 @@ Small delphi library containing interesting and quick to implement functions, cr
 
 
     //shows elapsed time in ShortTime format (02:10:00)
     //shows elapsed time in ShortTime format (02:10:00)
     Showmessage(Chrono.TimeElapsed(False));
     Showmessage(Chrono.TimeElapsed(False));
+    //get benchmak info of a process
+    Chrono := TChronoBenchMark.Create;
+    Chrono.TotalProcess := 100000;
+    for i := 1 to 10000 do
+    begin
+	    {your process here}
+	    Chrono.CurrentProcess := i;
+	    //shows estimated time your process will take in x hour(s), x minute(s) x second(s) format
+	    writeln(Chrono.EstimatedTime(True));
+	    //shows speed: num items per second processed of your process
+	    writeln(Format('Items processed %d/sec',[Chrono.Speed]));
+    end;
+    writeln(Chrono.ElapsedTime(False)); //shows total time elapsed in 00:00:00 format
     
     
 **Quick.Console:** Write log messages to console with colors and more...
 **Quick.Console:** Write log messages to console with colors and more...