Dictionary statt binärer Suche?

[Sir Rufo]

Delphi-Quellcode:

var
  lDict: TObjectDictionary<TObject, integer>;
  lSw  : TStopwatch;
begin
  lDict := TObjectDictionary<TObject, integer>.Create( [ doOwnsKeys ] );
  try
    lSw := TStopwatch.StartNew;
    while lDict.Count < 1000000 do
      begin
        lDict.Add( TObject.Create, 0 );
      end;
    lSw.Stop;
  finally
    lDict.Free;
  end;

  ShowMessage( lSw.ElapsedMilliseconds.ToString( ) );
end;

dauert 179ms.

Die Langsamkeit ist somit hausgemacht und wird wohl an einer schlechten Hash-Funktion (langsam bzw. zu viele Kollisionen) liegen.