Как остановить цикл по нажатии кнопки button (новая кнопка),
Можно и ту которая запускает цикл,
или от клавиши #32 пробел

Код

// вычисление v:=sin(((k+i/60)*pi)/180)*4.0425/m; for aa:=20 to 100 do   for bb:=20 to 100 do     for cc:=20 to 100 do       for dd:=20 to 100 do       if FormatFloat('0.00000',(aa*bb)/(cc*dd)) = FormatFloat('0.00000',v) then         if (aa<>bb) and (cc<>dd) then          Form5.Memo1.Lines.Add(Format('  Результат:  %d x %d / %d x %d',[aa,bb,cc,dd])); end;

если при вычислениях хочется реагировать на какие-то события, есть два выхода:
1. время от времени вызывать обработку событий из этого страшного цикла (если я не ошибаюсь, Application.ProcessMessages)
2. запустить цикл в отдельном потоке
в обоих вариантах лучше оформить вычислительную процедуру в виде отдельной функции (во втором - не лучше, а обязательно )
(1) при нажатии на кнопку изменять значение какого-нибдуь флажка, после обработки сообщений проверять этот флажок, если true, то exit
(2) при нажатии на кнопку просто убивать поток (так просто может не получиться: возможно, будут заморочки с доступом к Memo)

Переменная булева, отвечающая за то, нажата или нет кнопка. В цикле Application.ProcessMessages, чтобы нажатие на кнопке отработалось и if твоя переменная then Break (или exit, по смылу и вкусу). На обработчике нажатия кнопки выставляешь свою переменную. Перед цикло обнуляешь ее. И ВСЕ!

Можно по подробней и с примером.

Сделать репитом и в условии выхода проверять переменную, которая устанавливается по нажатию клавиши.

например делаеш глобальную переменную
var
b: boolean;

по нажатию кнопки
b:=true;

в цикле пишеш
if b then
begin
b:=false;
exit;
end;

ток вот ты кнопочку нажать-то не сможеш поставь ещё
application.ProcessMessages; в цикле
а ещё лучше в отдельном потоке этот цикл сделай)

Это сообщение отредактировал(а) FRAGNATIC - 3.3.2005, 23:24