Gettickcount
Автор Lex Lex задал вопрос в разделе Другие языки и технологии
Delphi. Как посчитать время выполнения процедуры? и получил лучший ответ
Ответ от Jurii[гуру]
var Start, Finish, TimeLen : Cardinal; TimeL : Double;
..// Тут другие переменные и бегин
Start := GetTickCount; // Засекам время начала
..// Тут наша обработка
Finish := GetTickCount; // Засекаем окончание
TimeLen := Finish - Start; // Время выполнения в миллисекундах
TimeL := TimeLen / 1000; // Столько в секундах и тысячных секунд
TimeLen := TimeLen div 1000; // А вот столько в секундах
Ответ от Анатолий Васильев[гуру]
взять секундомер засечь
взять секундомер засечь
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Delphi. Как посчитать время выполнения процедуры?