type

  TIntComp = class(TInterfacedObject, IEqualityComparer<integer>)
    function Equals(const Left, Right: integer): Boolean;
    function GetHashCode(const Value: integer): Integer;
  end;

  TStringComp = class(TInterfacedObject, IEqualityComparer<string>)
    function Equals(const Left, Right: string): Boolean;
    function GetHashCode(const Value: string): Integer;
  end;

{ TIntComp }

function TIntComp.Equals(const Left, Right: integer): Boolean;
begin
  Result:=Left=Right;
end;

function TIntComp.GetHashCode(const Value: integer): Integer;
begin
  Result:=Value;
end;

{ TStringComp }

function TStringComp.Equals(const Left, Right: string): Boolean;
begin
  Result:=Left=Right;
end;

{$OverFlowChecks OFF}
function TStringComp.GetHashCode(const Value: string): Integer;
var
  a : Integer;
  i : Integer;
begin
  Result:=0;
  a:=63689;
  for i:=0 To Length(Value)-1 do begin
    Result:=Result*a+PWordArray(Value)[i];
    a:=a*378551;
  end;
end;
{$OverFlowChecks On}

  IntDict:=TDictionary<integer,TMyClass>.Create(TIntComp.Create);
  StringDict:=TDictionary<string,TMyClass>.Create(TStringComp.Create);

procedure TDictionaryTestInteger;
type
  TDict = Generics.Collections.TDictionary<integer,integer>;
var
  A : TDict;
  i : Integer;
  T : Cardinal;
const
  SearchVal = 5;
begin
  WriteHeader('Benchmark '+PTypeInfo(TypeInfo(TDict)).Name);
  RandSeed:=Seed;

  A:=TDict.Create(TIntComp.Create);
  try
    Write('Add 10.000.000 integers. ');
    T:=GetTickCount;

    for i:=0 to 9999999 do begin
      A.Add(i,0);
    end;
    T:=GetTickCount-T;
    WriteLn(IntToStr(T)+' msec.');

    A.Clear;
    Write('Add 10.000 integers in 10.000.000 iterations. ');
    T:=GetTickCount;
    for i:=0 to 9999999 do begin
      A.AddOrSetValue(Random(10000),0);
    end;
    T:=GetTickCount-T;
    WriteLn(IntToStr(T)+' msec.');

    Write('Locate 10.000 integers in 10.000.000 iterations. ');
    T:=GetTickCount;
    for i:=0 to 9999999 do begin
      A.ContainsKey(Random(10000));
    end;
    T:=GetTickCount-T;
    WriteLn(IntToStr(T)+' msec.');

  finally
    A.Free;
  end;
end;

procedure TDictionaryTestString;
type
  TDict = Generics.Collections.TDictionary<String,integer>;
var
  A : TDict;
  i : Integer;
  T : Cardinal;
const
  SearchVal = 5;
begin
  WriteHeader('Benchmark '+PTypeInfo(TypeInfo(TDict)).Name);
  RandSeed:=Seed;

  A:=TDict.Create(TStringComp.Create);
  try
    Write('Add 1.000.000 GUIDs. ');
    T:=GetTickCount;
    for i:=0 to 999999 do begin
      A.Add(List1[i],i);
    end;
    T:=GetTickCount-T;
    WriteLn(IntToStr(T)+' msec.');

    A.Clear;
    Write('Add '+IntToStr(List2.Count)+' strings in 10.000.000 iterations. ');
    T:=GetTickCount;
    for i:=0 to 9999999 do begin
      A.AddOrSetValue(List2[Random(List2.Count)],0);
    end;
    T:=GetTickCount-T;
    WriteLn(IntToStr(T)+' msec.');

    Write('Locate '+IntToStr(List2.Count)+' strings in 10.000.000 iterations. ');
    T:=GetTickCount;
    for i:=0 to 9999999 do begin
      A.ContainsKey(List2[Random(List2.Count)]);
    end;
    T:=GetTickCount-T;
    WriteLn(IntToStr(T)+' msec.');
  finally
    A.Free;
  end;
end;