Thema: Delphi 'Stoppuhr'

Einzelnen Beitrag anzeigen

Benutzerbild von phlux
phlux

Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
 
Delphi 6 Personal
 
#10

Re: 'Stoppuhr'

  Alt 7. Okt 2003, 19:04
Zitat von n00b_on_knees:
@phlux könntest du mir bitte das mit gettickcount erklären?
Servus!
Habe noch einen besseren Weg gefunden, da GetTickCount immernoch nicht genau Genug ist. (Zur Erklärung: GetTickCount misst die Zeit wie lange Windows schon läuft, und gibt diese in Ticks(Millisekunden) wieder). Nichts desto trotz hier jetzt ein Beispiel wie man genau die Zeit misst:
Delphi-Quellcode:
var
  frequenz,
  start,
  ende: TLargeInteger;

resourcestring
  s = 'Gemessene Zeit: %g';

begin
  QueryPerformanceFrequency(frequenz);
  QueryPerformanceCounter(start);
  //Deinen Code hier
  QueryPerformanceCounter(ende);
  ShowMessage(Format(s, [(ende-start)/frequenz]));
end;
Christian "phlux" Arndt
  Mit Zitat antworten Zitat