Zeitmessung(ms) auf mehreren Stellen nach dem Komma

[Kuonrat]

Mit QueryPerformanceFrequency und QueryPerformanceCounter ist es ja möglich, in hoher Auflösung die Prozesse zu messen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  a, b, c: Int64;
begin
  QueryPerformanceFrequency(a);
  QueryPerformanceCounter(b);
 
  //Befehlesfolge deren Zeitdauer bestimmt werden soll 

  QueryPerformanceCounter(c);
 
  Caption := IntToStr((c - b) * 1000 div a);  //Ausgabe in ms
end;

Da mir aber nur diese Variante bekannt ist, würde es mich interessieren, ob man auch die Zeit mit Angaben nach dem Komma machen kann. Oft sind nämlich die Ergebnisse bei mir 0ms. Ich verstehe nämlich noch nicht ganz, wie diese Rechnung mit div a funktioniert. Ich weiß nur, das a, in dem Fall hier, die Anzahl der "Ticks" pro ms sind. *shrug*

[Amateurprofi]

FloatToStr((c - b) * 1000 / a)

[Kuonrat]

Ja, aber ich kann ja auf einen Integer keine Divison anwenden, weil der keine Nachkommastellen besitzt. Aber ich kann aus dem Int64 auch kein Real machen, weil QueryPerformanceCounter verlangt ein Int64.

[Amateurprofi]

doch, kannst du.
der "/" Operator ist auch bei Integerwerten anwendbar. das Ergebnis ist ein Float-Wert

[Kuonrat]

Ach na klar, jetzt funktioniert es. Danke.. Bin schon etwas müde hehe.