Как замерить время выполнения программы

[Gracel]

здраствуйте
у меня несложный вопрос: как можно замерить время выполнения программы?

[mrandrey]

t:cardinal;
Во время создания
t:=gettickcount;
Во время закрытия:
t:=gettickcount-t; \\ кол-во милисек.

[Jeni]

Единственное, учти, что GetTickCount работает "по кругу" - после того, как достигнет максимального значения через 49 суток, снова сбрасывается в ноль и начинает новый отсчет. Может так получиться, что второй вызов функции вернет меньшее значение чем первый и разность получится отрицательной.

Можно еще воспользоваться функциями Date, Time или Now (в зависимости от ситуации). Но все они (и GetTickCount) вернут только время между запуском программы и окончанием, т.е. это не будет "чистым" временем работы

[rpy3uH]

Сообщение от Jeni

Единственное, учти, что GetTickCount работает "по кругу" - после того, как достигнет максимального значения через 49 суток, снова сбрасывается в ноль и начинает новый отсчет.

я думаю об этом ему не надо будет заботится

[kl45gp]

Ты можешь взять и тупо попробовать через Timer

[Jeni]

Сообщение от rpy3uH

я думаю об этом ему не надо будет заботится

В практическом плане - согласен, ситуация маловероятная (если он только не разрабатывает серверное приложение), но знать об этом надо!