Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.08;
Скачать: 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 вся ветка

Текущий архив: 2002.07.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-23452
uncleRu
2002-06-14 13:23
2002.07.08
Помогите настроить....


8-23676
Lenidus
2002-02-27 23:28
2002.07.08
Как сделать полупрозрачным TPanel?


14-23784
VEG
2002-06-05 01:39
2002.07.08
Где можно скачать:


7-23813
KPY
2002-04-15 16:40
2002.07.08
На тему программирования ISA устройств.


3-23475
Eraser
2002-06-08 00:15
2002.07.08
Как изменить формат данных в TDBEdit