Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
Delphi 7 Enterprise
|
AW: Dictionary statt binärer Suche?
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)
|