Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

прерывание цикла   Найти похожие ветки 

 
eraser   (2002-01-15 14:38) [0]

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


 
MBo ©   (2002-01-15 14:45) [1]

вставь в цикл
Application.ProcessMessages;


 
eraser   (2002-01-15 14:47) [2]

там уже такое есть кнопка X нажимается но цикл продолжается и форма не закрывается


 
Slava ©   (2002-01-15 14:50) [3]

В цикле проверяй какую-нибудь глобальную переменную, а
при нажатии на кнопку просто меняй её значение


 
Vitaly ©   (2002-01-15 14:56) [4]

т.е., например, так:

var endLoop: boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Enabled := false; // чтобы не вызывать
endLoop := false;
caption := "вошли в цикл";
while not endLoop do
application.ProcessMessages;
caption := "вышли из цикла";
button1.Enabled := true; // теперь можно
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
endLoop := true;
end;


 
Anatoly Podgoretsky ©   (2002-01-15 16:03) [5]

eraser (15.01.02 14:47)
А может ты из цикла не выходишь?


 
eraser   (2002-01-15 16:07) [6]

в процессе работы мне и не надо выходить а вот как только нажму кнопочку так и надобно


 
Builder ©   (2002-01-15 16:26) [7]

Совет с глобальной переменной правильный. Для этого можно так же использовать SpeedButton.Down - и не нужно глобальной переменной :)


 
f0rm   (2002-01-15 16:30) [8]

Break друзья мои


 
DELPHIMUN ©   (2002-01-15 16:37) [9]

Цикл с условием.


 
Digitman ©   (2002-01-15 17:16) [10]

Н-да, это уже чистой воды Паскаль ...


 
Anatoly Podgoretsky ©   (2002-01-15 17:46) [11]

eraser (15.01.02 16:07
Вот про это и спрашиваю. Покажи код цикла и код выхода.


 
Polevi ©   (2002-01-15 17:59) [12]

while(SomeValue=false;SomeValue;Application.ProcessMessages)
{
}

Удобно, не так ли?



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.007 c
1-99985
Егор
2002-01-14 17:44
2002.01.31
Аналог Toad для MS SQL Server2000


14-100067
Digitman
2001-12-07 17:41
2002.01.31
Дж.Харриссон - кто он ?


3-99835
Андрей К.
2001-12-25 09:38
2002.01.31
FreeReport для Delphi 6


3-99918
ЕвгенийА
2001-12-30 19:06
2002.01.31
Запись в поле...


3-99914
AleksK
2001-12-31 13:11
2002.01.31
ComboBox в DBGrid