Do LKS'a [ mierzenie czasu :) ]

Czesc!
LKS piales w jednym z postow o procedurce autotorstawa bodajze pq do mierzenia czasu wykonania petli.
Szukalem w archiwum forum ale nigdzie nie moge znalezc. Moglbys podac adres do tego posta lub kod tej procedurki? Z gory dzikei.

--
Pozdrawiam
Ojciec (Delphi/C++)

nie chce mi sie szukac w arhiwum :)
oto kod:

procedure TForm1.Button1Click(Sender: TObject);

var
Freq, TimeStart, TimeEnd : Int64;
i: integer;
test : extended;
begin
if QueryPerformanceFrequency(Freq) then
begin
QueryPerformanceCounter(TimeStart);

{ poczatek kodu do tesatoania }
for i:=1 to 10000 do
begin
test:=random;
end;
{ koniec kodu do testowania }

QueryPerformanceCounter(TimeEnd);
Label1.Caption:='Wykonanie 10 000 razy zajelo: '+
FloatToStr((TimeEnd-TimeStart)/Freq*1000)+
' ms';
end;
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Nie pamietam, co napisalem wowczas i tez mi sie nie chce szukac, ale precyzyjniej powinno byc:

for i:=1 to 10000 do
begin
{ poczatek kodu do testowania }
test:=random;
{ koniec kodu do testowania }
end;
--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

ehm pq :)
ale mozna mierzyc nie tylko czas wykonywania petelek
zamiast petelki mozna wpisac np. Inc(i); i tez zadziala :)

ps. jak sie myle to popraw :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Dzieki chlopaki!--Pozdrawiam
Ojciec (Delphi/C++)