Zeitmessung mit dem RealTimeCounter

[negaH]

Zitat:

Anmerkung Luckie: Ich mußte in den Projektoptionen "Zuweisbare typisierte Konstanten" aktivieren

Betrifft D7, einfach Source abändern in

Delphi-Quellcode:

var 
  Frequency: Int64 = 0; 

function CPUFrequency: Int64; 
// gibt die Takzyklen pro Sekunde zurück 
begin 
  if Frequency = 0 then 
  begin 
    Frequency := CalcCPUFrequency; 
    if Frequency = 0 then 
      raise Exception.Create('Kann CPU Frequenz nicht berechnen'); 
  end; 
  Result := Frequency; 
end;

Gruß Hagen