Array durchsuchen

[Matze]

Zitat von Muellermilchtrinker:

BTW: Wie messt ihr da eigentlich immer die Zeit???

Ich i.d.R. so:

Delphi-Quellcode:

var
  i: Integer;
  Start, Stop: Integer;
begin
  Start := GetTickCount;

  for i := 1 to 1000 do
  begin

    // dein Funktionsaufruf

  end;

  Stop := GetTickCount;

  ShowMessage(FloatToStr((Stop - Start) / 1000) + ' ms');

Die Test-Funktionen rufe ich immer mehrfach auf, um reproduzierbare Ergebnisse zu erhalten, auch bei sehr kurzen Durchlaufzeiten.