Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#24

AW: Dictionary statt binärer Suche?

  Alt 15. Dez 2015, 11:46
Ja, ich glaube auch dass es eher so sein müsste:
Delphi-Quellcode:
uses
  System.SysUtils,
  System.Generics.Collections,
  System.Diagnostics;

var
  lDict: TObjectDictionary<Integer, TObject>;
  lSw : TStopwatch;
  I : Integer;
begin
  lDict := TObjectDictionary<Integer, TObject>.Create( [ doOwnsValues ] );
  try
    lSw := TStopwatch.StartNew;
    I := 0;
    while I < 1000000 do
    // Der Aufruf von Count macht ca 50% der Laufzeit aus.
    // while lDict.Count < 1000000 do
    begin
      Inc(I);
      lDict.Add( I, TObject.Create);
    end;
    lSw.Stop;
  finally
    lDict.Free;
  end;

  writeln( lSw.ElapsedMilliseconds.ToString( ) );
  Readln;
end.
Ändert aber nichts am eigentlichen Problem mit der Laufzeit. Ich denke @Stahli misst Mist
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all

Geändert von Union (15. Dez 2015 um 11:48 Uhr)
  Mit Zitat antworten Zitat