Определить время работы функции

[Crookers]

Всем привет!

Подскажите кто знает, как можно определить время работы функции или процедуры какой нибудь? Допустим нажал на кнопку Выполнить а на Labele появляется время работы этой функции в милисекундах.
Интересно знать сам метод определения времени..

[Utkin]

Засекаешь время до пуска и после.

x:=TimeToStr(Time);
процедура
y:=TimeToStr(Time);

ну как-то так.

[spamer]

Оно то так, только если я не ошибаюь погрешность довольно большая получается...

[bitSoft]

esti i

GetTickCount

primer :

var
 t,t1 : integer;
begin
 t := GetTickCount;
 {.....}
 ShowMessage(IntToStr(GetTickCount-t));
end;

primerna tak

[DeKot]

Примеры - время работы цикла и таймера. На этом же принципе можно и для любой функции и процедуры. Только стоит учитывать, что измерение в мсек, а процедура или функция зачастую выполняется мгновенно, и засечь одноразовое выполнение не получится. Тут возможен принцип выполнения процедуры многократно (1000 или 100 000 раз), измерение времени многократного выполнения, подсчет количества (или же задать явно) выполнений и пересчета на одно выполнение.