VPF::Цикл - Форум программистов

nickelfire

Дата 17.8.2005, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 22.12.2004

Репутация: нет
Всего: нет

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

Код


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

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

_hunter

Дата 17.8.2005, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

Yanis

Дата 17.8.2005, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата

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

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

Это сообщение отредактировал(а) Yanis - 17.8.2005, 14:25

--------------------

*щёлк*

mvdr

Дата 17.8.2005, 14:24 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

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

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Dimannn

Дата 17.8.2005, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Код


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

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Петрович

Дата 17.8.2005, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Посмотри это http://forum.vingrad.ru/index.php?showtopi...ndpost&p=309202

--------------------

Все знать невозможно, но хочется

nickelfire

Дата 18.8.2005, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 22.12.2004

Репутация: нет
Всего: нет

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

Poseidon

Дата 18.8.2005, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

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

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

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

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

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »