remove unused dependency (generics.collections)

Author: georges-hatem

entries/ghatem-fpc/src/onebrc.pas

@@ -5,7 +5,7 @@
 interface
 
 uses
-  Classes, SysUtils, Generics.Collections,
+  Classes, SysUtils,
   mormot.core.os, mormot.core.base;
 
 function RoundExDouble(const ATemp: Double): Double; inline;
@@ -25,7 +25,6 @@ function RoundExDouble(const ATemp: Double): Double; inline;
     Name: AnsiString;
   end;
   PStationData = ^TStationData;
-  TStationsDict = specialize TDictionary<Cardinal, PStationData>;
 
   TKeys = array of Cardinal;
   TValues = array of PStationData;
@@ -128,9 +127,6 @@ function Compare(AList: TStringList; AIndex1, AIndex2: Integer): Integer;
 
 { TMyDictionary }
 
-const
-  cHashConst: Double = (Sqrt(5) - 1) / 2;
-
 procedure TMyDictionary.InternalFind(const aKey: Cardinal; out aFound: Boolean; out aIndex: Integer);
 var vIdx: Integer;
     vOffset: Integer;