Как проще остановить бесконечный цикл, в котором есть пауза?

@Hito · Регистрация: 02.09.2015

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

В общем столкнулся с такой задачей. При клике на Button1, запускается цикл, который должен прерываться по клику на Button2. Если в цикле нет паузы, то проблемы как бы нет особо (ну, кроме той, что проц перегружается), а если в цикле есть пауза, как в моем варианте, то появляется другая проблема.
Вот так, при клике на Button2, прога перестает работать только тогда, когда пауза отработает все свои 3 секунды:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
begin
    vkl := True;
    while vkl do
    begin
        MessageBeep(MB_ICONASTERISK);  // Сигнал
        Sleep (3000);
        Application.ProcessMessages;
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    vkl := False;
end;

Вот так все работает четко - прога перестает работать в любой момент, при клике по Button2:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var
    ms: Integer;
begin
    vkl := True;
    while vkl do
    begin
        MessageBeep(MB_ICONASTERISK);  // Сигнал
        for ms := 1 to 3000 do
        begin
            If vkl then Sleep (1) else break;
            Application.ProcessMessages;
        end;
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    vkl := False;
end;

Так вот вопрос... Может есть возможность все сделать как-то проще и чтобы все нормально работало?

@Hito · 05.05.2016, 00:21 **[ТС]**

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

Пауза в смысле Sleep тут очень плохое решение.

Это я уже понял )

Добавлено через 1 минуту

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

Ужасное решение.

По крайней мере это решение, которое мне понятно и в котором программа действительно не зависает на время паузы...

Добавлено через 6 минут
Ну да... Процессор такое решение подзагружает...

quwy · 06.05.2016, 12:11

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

Вообще конечно ппц... Такие заморочки, чтобы просто паузу реализовать в коде, от которой приложение не висло бы...

Оконное приложение является событийно-ориентированным и задержек в нем быть просто не должно (отсюда и ваши проблемы). Если в оконном приложении возникла необходимость в заметной задержке, то это повод хорошенько подумать и переделать его так, чтобы такой необходимости не возникало.

@Hito · 06.05.2016, 12:13 **[ТС]**

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

Оконное приложение является событийно-ориентированным и задержек в нем быть не должно, отсюда и проблемы.

Да - я уже нарыл информации по поводу этого )) Спасибо )) Теперь разбираюсь в потоках ))

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .