JCLCounter - High Performance Counter

[creality]

So ich mal wieder:

QueryPerformanceFrequency liefert komischerweise nicht 0 zurück. Und zu faul bin ich auch nich ne Zeitmessung selber zu schreiben...vielleicht schreib ich ja gleich noch den TCPIP Stack neu wenn ich grad dabei bin

Ich hab aber den JCP in vielen meiner Tools verwendet und müsste ihn wieder rausnehmen wenn ich Ursache nicht finde...

Delphi-Quellcode:

procedure TForm1.button_3Click(Sender: TObject);
var
  freq,time1,time2: int64;
  i,a : Integer;
begin
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(time1);

  for I := 0 to 10000000 do
      Inc(a);

  QueryPerformanceCounter(time2);
  ShowMessage(FloatToStr((time2-time1)/freq));
end;

"Message = 0,0102"