Suche effizienter machen

[Tyrael Y.]

Für die Geschwindigkeitmessung würde ich folgendermassen vorgehen.

Delphi-Quellcode:

var LBegin,
    LEnd: integer;

    LTime: String;
begin
  LBegin := GetTickCount();
  try
    HierMacheIchDieArbeit();
  finally
    LEnd := GetTickCount;
    
    EinLabel.Caption := IntToStr(LEnd - LBegin);
    
  end;
end;