Suche effizienter machen

[Tyrael Y.]

Ja es sind Millisekunden.

Wenn du jede Version nur einmal durchführst ist das nicht wirklich signifikant.

Delphi-Quellcode:

const C_COUNT = 100;
var LBegin,
    LEnd, i: integer;

    LTime: String;
begin
  LBegin := GetTickCount();
  try
    for i := 0 to C_COUNT do
    begin
      HierMacheIchDieArbeit();
    end;
  finally
    LEnd := GetTickCount;
   
    EinLabel.Caption := IntToStr(LEnd - LBegin);
   
  end;
end;

So wird die Arbeit jetzt 100 mal gemacht.
Umso öfter es möglich ist in annehmbarer Zeit umso öfter solltest du die Schleife laufen lassen.
Wichtig wäre auch, daß du das Ganze startest und bis zum Ende den Rechner in Ruhe lässt.
Aktionen nebenbei kosten Prozesserzeit.