Zitat:
Ich kenne seine Delphi Version nicht, Du etwa? TStopWatch gibt es nicht überall, mein Beispiel schon. (das Type halt ausklammern wenn vorh. Delphi TInt64 hat)
10.2 Starter ist kostenlos. Und wenns kostenlos ist, sollte man sich das auch mal besorgen (für den Fall, dass man noch immer auf D7 reitet).
Delphi-Quellcode:
uses Diagnostics;
procedure TForm1.Button1...;
var
SW: TStopWatch;
begin
SW := TStopWatch.Create;
SW.Start;
// Primezahlen berechnen
SW.Stop;
showmessage(SW.EllapsedMilliseconds.ToString + ' ms vergangen');
end;
Warum so unglaublich kompliziert mit dem alten QueryCounter-Gedöns wenns auch wesentlich einfacher mit der StopWatch geht?