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

Вниз

Время выполнения   Найти похожие ветки 

← →
Juster~   (2003-06-14 20:17) [0]

Можно узнать, какие участки кода сколько занимают времени (хотя бы относительно)? А то мне надо тормоза выловить в коде... Спасибо.

---

← →
panov ©   (2003-06-14 20:32) [1]

function TickCount:Int64;
begin
QueryPerformanceCounter(Result);
end;

function DeltaTickToSeconds(const Delta: Int64):Double;
var
TickFreq: Int64;
begin
QueryPerformanceFrequency(TickFreq);
Result := Delta/TickFreq;
end;

Пример использования:

var
t1: Int64;
begin
t1 := TickCount;
MyProc;
ShowMessage(FloatToStr(DeltaTickToSeconds(TickCount-t1)));
end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.012 c