style: Removing some hints

Author: gcarreno

utilities/results_generator/Common/resultsgenerator.common.pas

@@ -17,8 +17,7 @@ interface
 
 type
 
-  { TResult }
-
+{ TResult }
   TResult = class
     Name: String;
     Notes: String;
@@ -28,10 +27,10 @@   TResult = class
     constructor Create;
   end;
 
+{ TResultsList }
   TResultsList = specialize TFPGObjectList<TResult>;
 
-  { TResults }
-
+{ TResults }
   TResults = class(TObject)
   private
     FConfig: TConfig;
@@ -54,8 +53,6 @@ implementation
 uses
   fpjson
 , jsonparser
-, Math
-, Utilities.ArraySort
 ;
 
 const
@@ -120,7 +117,7 @@ function TResults.FormatTime(ATime: Double): String;
   Result:= '';
   intPart:= Trunc(ATime);
   minutes:= 0;
-  if intPart > 60 then
+  if intPart >= 60 then
   begin
     repeat
       Inc(minutes);

utilities/results_generator/Lazarus/src/resultsgenerator.lpi

@@ -85,7 +85,7 @@
     <RunParams>
       <FormatVersion Value="2"/>
     </RunParams>
-    <Units Count="7">
+    <Units Count="6">
       <Unit0>
         <Filename Value="resultsgenerator.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -116,11 +116,6 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="Utilities.Data.Hyperfine"/>
       </Unit5>
-      <Unit6>
-        <Filename Value="../../../common/utilities.arraysort.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="Utilities.ArraySort"/>
-      </Unit6>
     </Units>
   </ProjectOptions>
   <CompilerOptions>