Frage zum RealTimeCounter aus der Code Library

[Tubos]

Hallo;

ich brauche für ein Programm einen möglichst genauen Counter.
Da habe ich in der Code Library das hier gefunden:
Zeitmessung mit dem RealTimeCounter

Der Code ist toll, aber wie verwendet man diesen Counter?

[dizzy]

Die Prozedur "Test" zeigt doch, wie es geht. Ganz unten im ersten Posting

[alcaeus]

Ähm, soviel ich verstanden habe ich...simpel: RDTSC gibt dir den Wert von Taktzyklen zurück
Und das Beispielprogramm sollte alles erklären

Delphi-Quellcode:

procedure Test; 
var 
  Start,Stop: Int64; 
  Tick: DWord; 
begin 
  WriteLn('CPU Taktfrequenz ist ', CPUFrequency/1000000.0:6:1, ' MHz'); 
  
  Tick := GetTickCount + 100; 

  Start := RDTSC; 
  while GetTickCount < Tick do ; 
  Stop := RDTSC; 

  WriteLn; 
  WriteLn('Testschleife dauerte: '); 
  WriteLn('Taktzyklen    : ', Stop - Start:10); 
  WriteLn('Millisekunden : ', Ticks(Stop - Start):10:2); 
  WriteLn('Sekunden      : ', Secs(Stop - Start):10:2); 

end;

[edit]S**t, zu langsam[/edit]

[dizzy]

OT: Wie cool, ich war in nem anderen Thread ein wenig langsamer als du.. *fg*

[Tubos]

Danke!