Als ich versteh da was nicht:
meine Funktion:
Delphi-Quellcode:
function SearchArray(Suchmaske:String):Integer;
var i:Integer;
begin
Result := 0;
for i := 0 to high(asz) do
begin
if asz[i]=Suchmaske then
begin
result := i;
break;
end;
end;
end;
So mach ich die Zeitmessung:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
Start, Stop: Integer;
begin
Start := GetTickCount;
for i := 1 to 1000 do
begin
SearchArray('Z');
end;
Stop := GetTickCount;
ShowMessage(FloatToStr((Stop - Start) /1000) + ' ms');
end;
Asz ist das Array da steht A bis Z drin.
Ich bekomm bei Z eine Zeit von 0 ms.
Da stimmt doch was net.
