Время выполнения

← →
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;

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