Циклы и выход из них.

[alikk]

Как осуществить выход из бесконечного цикла при клике на определенную "кнопку" на форме? Цикл запускается другой "кнопкой" на этой же форме.

[Stilet]

Только если цикл запустить в другом потоке

[alikk]

я новичек, нельзя ли подробнее.... Спасибо.

[Stilet]

Увы у меня нет примерчика, посему порули литературу про организацию потоков в Делфи.

[Aleksandr]

Посмотри имеется пример и справка.

[alikk]

Спасибо огромное. Как раз и из-за отсутствия литры обратился на форум. Может есть ссылка какая? НО ВСЕ РАВНО СПАСИБО.

[Ring0Sn]

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

Только если цикл запустить в другом потоке

Нахрена человеку сразу мозг трахать потоками?
alikk, сделай глобальную переменную типа boolean и в цикле вставь проверку етой переменной, тьесть если допустим ета переменная стала true в следствие нажатия кнопки, то делаем break !
Например:
var
Check: boolean = false; // глобальный вар ктр будем проверять в цикле

procedure TForm1.button1Click(sender: tobject);
begin
check:= true; //для прерывания цикла
end;

в цикле пишешь if check then break;

[SERG1980]

можно так
var a:boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=false;
repeat
application.ProcessMessages;
until a;
end;

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

[alikk]

Слегка пробежался. Приогромное спасибо. Приступаю к изучению..... Спасибо еще много раз...

[alikk]

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

Нахрена человеку сразу мозг трахать с потоками?
alikk, сделай глобальную переменную типа boolean и в цикле вставь проверку етой переменной, тьесть если допустим ета переменная стала true в следствие нажатия кнопки, то делаем break !
Например:
var
Check: boolean = false; // глобальный вар ктр будем проверять в цикле

procedure TForm1.button1Click(sender: tobject);
begin
check:= true; //для прерывания цикла
end;

в цикле пишешь if check then break;

Чазззззз попробую проделать. Спасибоооооооо.