Скачать: CL | DM;

Точный таймер.   Найти похожие ветки 

← →
.: Joiro :. ©   (2002-06-24 22:51) [0]

Очередной вопрос к уважаемым мастакам:

Я стараюсь максимально оптимизировать все части своей программы и поэтому многократно тестирую их при помощи таймера, который считает тики. Таймер выглядит вот так:

THiResTimer = class
private
Frq,Val1,Val2 : Int64;
public
procedure StartTimer;
function GetTickTime:Integer;
end;

{ Timer }

procedure THiResTimer.StartTimer;
begin
QueryPerformanceFrequency(Frq);
QueryPerformanceCounter(Val1);
end;

function THiResTimer.GetTickTime;
begin
QueryPerformanceCounter(Val2);
Result := (1000000*(Val2-Val1)) div Frq;
end;

Вопрос в том есть ли возможность переделать показания таймера в (мили)секунды.

Или может есть и другие варианты для точного отсчёта времени?

---

← →
MBo ©   (2002-06-25 06:20) [1]

Result := (1000*(Val2-Val1)) div Frq;

---

← →
Bsl   (2002-06-25 07:58) [2]

Попробуй GetTickCount.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c