Forum: Object-Pascal / Delphi-Language
Delphi
by Fussball-Robby,
25. Nov 2008
Du musst die Differenz durch die Frequenz teilen (irgendwie logisch, denn je höher die Frequenz desto niedriger die Sekundenzahl bei gleicher Differenz :wink: ). Hier mal ein Beispiel für Sekunden, Milli-, Mikro- und Nanosekunden:procedure TForm1.Button1Click(Sender: TObject);
var
Start, Ende, F, Diff: Int64;
begin
QueryPerformanceFrequency(F);
QueryPerformanceCounter(Start);
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Fussball-Robby,
25. Nov 2008
var
Start, Ende: Int64;
begin
QueryPerformanceCounter(Start);
Funktion();
QueryPerformanceCounter(Ende);
ShowMessage(IntToStr(Ende - Start));
end;Übrigens: Wenn du unbedingt die benötigte Zeit (also zum Beispiel Millisekunden) ermitteln willst, musst du noch mit QueryPerformanceFrequency arbeiten, denn diese Frequenz hängt vom Prozessor ab und ist von daher nicht an jedem PC...