Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
.: 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 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c