Прерывание цикла for

@bloodvirus · Регистрация: 12.12.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте уважаемые форумчане. Можно ли как то прервать цикл for i
Например у меня стоит for i = 0 to 1000 do begin
мне нужно каждые 500 раз тормозить на час. Как это лучше сделать? желательно чтобы приложение не висело (sleep тормозит всю отзывчивость)
Спасибо!

@Ev1l · 30.07.2013, 17:22

Не по теме:

Dr_Quake, это говорят эмбаркодеры

@mss · 30.07.2013, 17:28

Не по теме:

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

кто сказал

Я сказал)
А мне сказали исходники ComCtrls:

procedure TTimer.UpdateTimer;
begin
KillTimer(FWindowHandle, 1);
if (FInterval <> 0) and FEnabled and Assigned(FOnTimer) then
if SetTimer(FWindowHandle, 1, FInterval, nil) = 0 then
raise EOutOfResources.Create(SNoTimers);
end;

А если бы там была бы иная строчка
if SetTimer(0, 1, FInterval, @SomeTimerProc) = 0 then
что вполне возможно для некоей невиндовой платформы, то и в этом случае SomeTimerProc() будет вызываться в контексте того и только того потока, который вызвал ф-цию SetTimer()

Dr_Quake · 30.07.2013, 17:31

Не по теме:

mss, я не про то, а про кривожопость реализации, забавно что до сих пор через WM работает VCL

@mss · 30.07.2013, 17:48

Не по теме:

кривожопость реализации..через WM

Что это она "кривожопая" ?
Нормальная реализация, для формошлепства самое то)
А для спецразработок существуют сторонние альтернативные реализации классов для работы с таймером.

@korvin_ · 30.07.2013, 20:00

Сообщение от Пытливый

Период срабатывания 1 час

Но ТС нужно не это, а пауза в час между достижением шага итерации и возобновлением итераций. Что, если выполнение 500 итераций будет продолжаться дольше часа?

@Пытливый · 31.07.2013, 00:30

Что, если выполнение 500 итераций будет продолжаться дольше часа?

А вот это интересный вопрос. Но ведь можно при входе в событие таймера делать его недоступным, выполнять итерацию 500 раз независимо от времени исполнения и по выходе из события снова включать таймер. Вроде должно сработать правильно.

ПС: А вообще интересно, отсчет в самом таймере начинается снова с момента выхода из события или как-бы независимо от события. Надо поковырятся.

@mss · 31.07.2013, 01:09

Сообщение от Пытливый

или как-бы независимо от события

Или.
Отсчет периодов, равных зн-ю св-ва Interval, начинается с момента Enabled=True и заканчивается в момент Enabled=False, вне зависимости от того как долго исполняется обработчик OnTimer и назначен ли он вообще.

Добавлено через 7 минут
Все что делается в момент истечения очредного периода - это отправка сообщения WM_TIMER в очередь сообщений невидимого окна. Причем система при запросе на постановку WM_TIMER в очередь сначала проверяет нет ли в ней уже такого сообщения и игнорирует запрос, если WM_TIMER уже есть в очереди окна.

А то что происходит далее - это уже забота потока, создавшего это невидимое окно: вовремя выгребет из очереди WM_TIMER - вовремя и событие OnTimer возникнет, невовремя выгребет или вообще не выгребет (будучи занят в это время чем-то хз более архиважным ) - невовремя соотв-но и OnTimer возникнет или вообще не возникнет.

Dr_Quake · 31.07.2013, 01:16

Не по теме:

mss, что дважды изврат, кучу окон плодить. Даже в WINAPI SetTimer есть параметр - ID получателя, ну или WM_USER и допбайты в сообщении, всё можно валить на хотя бы Parent если оно TForm.

@Ev1l · 31.07.2013, 01:18

я тут в отпуске был, у меня голова чет не варит:

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

мне нужно каждые 500 раз тормозить на час. Как это лучше сделать? желательно чтобы приложение не висело (sleep тормозит всю отзывчивость)

тоесть у него там на первых страницах уже готовые варианты, если нужно продолжать счет, то никто не мешает делать шаг итераций, напимер в эдит вводим по сколько раз выполнять, и ставим например такой цикл:

Delphi
1
for i := n to n+strtoint(edit1.text) do ...

где n глобальная наример integer
после этого цикла врубать таймер с интервалом 100, и проверять прошел ли час, если да то запустить цикл, время фиксировать можно как до, так и после цикла, если следить за каждой итерацией цикла то наверно нужно где то хранить временные интервалы на каждом шаге, тогда for не подойдет, я бы наверно сделал через дин.массив, с размерностью равной количеству итераций до блокировки в котором хранил бы временые точки, циклически проверял бы этот массив через while, и перед шагом проверял бы прошел ли час после обращения к текущей ячейке массива, если нет то все как раньше, включили таймер с интервалом 100 и запомнили тот элемент на котором остановились, прошел час-"занулили попытку, запустили цикл"...

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@bloodvirus 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 25

	Прерывание цикла for 29.07.2013, 02:17. Показов 5813. Ответов 28 Метки нет (Все метки) Здравствуйте уважаемые форумчане. Можно ли как то прервать цикл for i Например у меня стоит for i = 0 to 1000 do begin мне нужно каждые 500 раз тормозить на час. Как это лучше сделать? желательно чтобы приложение не висело (sleep тормозит всю отзывчивость) Спасибо! 0

@Ev1l
	30.07.2013, 17:22
	Не по теме: Dr_Quake, это говорят эмбаркодеры 0

Dr_Quake
	30.07.2013, 17:31
	Не по теме: mss, я не про то, а про кривожопость реализации, забавно что до сих пор через WM работает VCL 0

Dr_Quake
	31.07.2013, 01:16
	Не по теме: mss, что дважды изврат, кучу окон плодить. Даже в WINAPI SetTimer есть параметр - ID получателя, ну или WM_USER и допбайты в сообщении, всё можно валить на хотя бы Parent если оно TForm. 0