| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Точный таймер. [D6]

.: Joiro :. ©   (2002-06-24 22:51:00) 

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

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

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;

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

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

---

Bsl   (2002-06-25 07:58:00) [1]

Попробуй GetTickCount.

---

MBo   (2002-06-25 06:20:00) [2]

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

---

Наверх