прикладная математика

unit HRTimer;

interface

uses Windows;

type
   // описание класса
   THRTimer = class(TObject)
     constructor Create;
     function StartTimer: Boolean; // функция старта/обнуление атймера
     function ReadTimer: Double;   // чтение времени работы таймера, начиная с его обнуления
   private
     StartTime: Double;
     ClockRate: Double;
   public
     Exists: Boolean;     
   end;

var
   Timer: THRTimer;   

{  
    function HRDelay(const Milliseconds: Double): Double;
    Milliseconds: Double - задержка в миллисекундах (может быть дробной)
    Результат функции - фактически произошедшая задержка с погрешностью.
    Пример вызова функции: X:= HRDelay(100.0); или HRDelay(100.0);
  }
function HRDelay(const Milliseconds: Double): Double;
   
implementation
   
function HRDelay(const Milliseconds: Double): Double;
begin
   Timer.StartTimer();
   repeat
     Result:= Timer.ReadTimer();
   until Result >= Milliseconds;
end;

{ THRTimer }
   
constructor THRTimer.Create;
var
   QW: LARGE_INTEGER;
begin
   inherited Create;
   Exists := QueryPerformanceFrequency(Int64(QW));
   ClockRate := QW.QuadPart;
end;
   
function THRTimer.StartTimer: Boolean;
var
   QW: LARGE_INTEGER;
begin
   Result := QueryPerformanceCounter(Int64(QW));
   StartTime := QW.QuadPart;
end;
   
function THRTimer.ReadTimer: Double;
var
   ET: LARGE_INTEGER;
begin
   QueryPerformanceCounter(Int64(ET));
   Result := 1000.0 * (ET.QuadPart - StartTime) / ClockRate;
end;
   
initialization
   Timer:= THRTimer.Create();
   
finalization
   Timer.Free();
   
end.