freepascal.ru

Код: Выделить всё

{$asmmode INTEL}

Function GetRDTSC :Int64;
Begin
  asm
    RDTSC
  end;
End;

Procedure BMyThread.Execute;
Begin
  While Not(Terminated) Do
    Begin
      If GetCPUTick - bCounter > 1700000 Then //1700000 получено экспериментально
        Begin
          bCounter := GetCPUTick;
          Inc(bStep);
          aStringList.Add(IntToStr(bStep));
          If bStep > 10 Then Synchronize(@AddStep);
        End;
    End;
End;

Код: Выделить всё

function GetUNIXTime: extended;
{Получение времени ОС в секундах с точностью до 1 мкс с 01.01.1970 00:00:00  }
var
 TV : timeval;
 TZ : timezone;
begin
 fpGetTimeOfDay(@TV, @TZ);
 {Получение времени UNIX без учёта временного сдвига ОС                        }
 {Целая часть - секунды от 01.01.1970                                          }
 {Дробная - микросекунды текущей секунды на момент получения времени           }
 GetUNIXTime := TV.tv_sec + TV.tv_usec/1000000;
end; 

procedure Delay(_dT: extended);
{Временная задержка на заданное количество секунд                            }
{  Входной параметр:                                                         }
{   _dT : extended - величина временной задержки в секундах                  } 
var
 cT : extended;
begin
 cT:=GetUNIXTime;
 while (cT+_dT)>=GetTimeGMT do;
end;