Как выйти из цикла по прошествии определенного времени

@Muhammad97 · Регистрация: 10.11.2013

Как выйти из цикла по прошествии определенного времени,
например, 5 секунд

quwy · 17.01.2014, 19:17

Delphi

var
  tc: TDateTime;
begin
  tc:= Now+5/(24*60*60);
  repeat
    // тело цикла
  until (условие штатного выхода) or (Now >= tc);

@korvin_ · 17.01.2014, 22:44

Не сработает, если итерация будет выполняться дольше 5 секунд. Хотя, если ТС'у такая точность не важна, то норм.

@Shurvik · 18.01.2014, 15:02

Например, можно выполнять цикл в потоке. И по прошествии 5 (или сколько нужно) секунд завершить поток.

@Muhammad97 10 / 10 / 2 Регистрация: 10.11.2013 Сообщений: 238
		1
	Как выйти из цикла по прошествии определенного времени 17.01.2014, 17:43. Показов 1156. Ответов 3 Метки нет (Все метки) Как выйти из цикла по прошествии определенного времени, например, 5 секунд 0

@korvin_ 4539 / 2731 / 486 Регистрация: 28.04.2012 Сообщений: 8,626
	17.01.2014, 22:44	3
	Не сработает, если итерация будет выполняться дольше 5 секунд. Хотя, если ТС'у такая точность не важна, то норм. 0

@Shurvik 46 / 46 / 14 Регистрация: 12.02.2013 Сообщений: 157
	18.01.2014, 15:02	4
	Например, можно выполнять цикл в потоке. И по прошествии 5 (или сколько нужно) секунд завершить поток. 0