Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Цикл

Автор: nickelfire 17.8.2005, 13:39

Guten morgen, tag, abend.
У меня есть такой цикл:

Код


for a:=0 to 100000 do begin
{..
..
..}
end;

Скажите пожалуйста как узнать сколько времени потребовалось на его завершение?
В милисекундах или еще в чем поменьше.

Автор: _hunter 17.8.2005, 13:50

в миллисекундах -- GetTickCount() и прогони его раз 10 между замерами
можно еще QueryPerformanceCounter() / QueryPerformanceFrequency() юзать

Автор: Yanis 17.8.2005, 14:24

Цитата

Скажите пожалуйста как узнать сколько времени потребовалось на его завершение?

Можно ещё с использованием команды rdtsc узнать.

Автор: mvdr 17.8.2005, 14:24

Связать с таймером.

Автор: Dimannn 17.8.2005, 21:00

Код


Var Beg: TDateTime;
begin
Beg:=Now;
 //Твой цикл;
result:=MilliSecondsBetween(Beg,Now);
end;

Автор: Петрович 17.8.2005, 21:49

Посмотри это http://forum.vingrad.ru/index.php?showtopic=21411&view=findpost&p=309202

Автор: nickelfire 18.8.2005, 13:54

Спасибо всем! сделал с помощью gettickcount.
P.S.
to Femida
А ты сам(а) то пробовал(а) это сделать? Я вот пробовал по своему, как то не вышло. Ежели у тебя получится приведи пожалуйста код.

Автор: Poseidon 18.8.2005, 17:56

Цитата(nickelfire @ 18.8.2005, 13:54)

А ты сам(а) то пробовал(а) это сделать?

Вот оно! Неизвестность половой принадлежности Фемиды. Говорил же, нужно возле аватора указывать.

Цитата(nickelfire @ 18.8.2005, 13:54)

Ежели у тебя получится приведи пожалуйста код.

Да, мне тоже кстати интересно. У меня чо-то не вышло (хотя я и не долго пробовал)