Zitat von
Thorben86:
Welchen wert nimmt man denn für die Frequenz bei QueryPerformanceFrequency, oder welche Faktoren muss ich da berücksichtigen?
Zitat von
Thorben86:
Ich würde höchstens schließen, dass das egal ist, aber das würde ja nicht wirkklich sinn machen, oder hab ich was übersehen?
Mit der
WinAPI Funktion QueryPerformanceFrequency ermittelst du den Wert, den du dann beim Teilen brauchst. Die Zeitmessung beginnt erst mit dem Aufruf von QueryPerformanceCounter(Start) und endet dann mit dem Aufruf QueryPerformanceCounter(Stop).
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
procedure Test;
begin
Sleep(2000);
end;
var
Start, Stop, Frequenzy: Int64;
begin
QueryPerformanceFrequency(Frequenzy);
QueryPerformanceCounter(Start);
Test;
QueryPerformanceCounter(Stop);
ShowMessage(FormatFloat('0.00', (Stop - Start) * 1000 / Frequenzy) + ' Millisekunden');
end;