[Лунтик-Некрофил]

Как приостановить цикл во время работы?
Т.е. например

Код:

for i:=1 to 10 do begin
ыыы
end;

где "ыыы" - это тот участок, в котором пользователь должен сделать что-то, после чего инфу обработать и переходить уже к след. элементу цикла, а то у меня он их все сразу прокручивает...

[b2soft]

выйти из цикла Break;

типа если хож прервать цикл пишешь break; и фсе

[Лунтик-Некрофил]

А продолжение цикла? или оно автоматом идет?
Т.е. цикл должен возобновляться с той же позиции, где он был остановлен, но только после действий юзера.

[CTAJLUH]

в бейсике есть функция stop может она подойдет
Если подойдет я буду в шоке
+ run чтоб продолжить

[b2soft]

это консольное приложение или простое??? если консоль то пишешь readln(переменная:стринг) и обрабатываешь

по другому ставишь присвойки из эдитов и т д

[Лунтик-Некрофил]

b2soft, спасибо, попробую
Проблема в том, что прога должна дождаться выбора в радиогруппе и нажатия клавиши, но думаю разница не очень большая, буду пробовать.
Хотя тема возможно не закрыта...

CTAJLUH, бред пишешь...

[NIch]

чтобы запустить/приостановить цикл нужно использовать потоки (Thread) и их методы resume/suspend...т.е. нажимаешь кнопку пауза цикл приостанавливается, если продолжить, то цикл продолжается...

[ART]

Если работа идет внутри цикла, то Suspend не поможет.

Я делал так:

Код:

 var 
  Stop: boolean; //где то, но глобальная

Далее в потоке:

Код:

...
 for i := 1 to N do begin
  ...
  if Stop = true then
   repaet
    application.processmessages;
  until Stop = false;
  ...
 end;
...

[NIch]

Если работа идет внутри цикла, то Suspend не поможет.

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

Код:

//Выполнение потока
procedure TMyThreaD.Execute;
begin
 Form1.Proc;//Выполнение процедуры в потоке
end;
//Кнопка старт/стоп
procedure TForm1.Button1Click(Sender: TObject);
begin
 If Button1.Caption = 'Стоп' then
 begin
  TerminateThread(MyThreaD.Handle, 0);//Удаляем поток
  Button1.Caption := 'Старт';
  Button2.Enabled := false;
  Button2.Caption := 'Пауза';
  Exit;
 end;
  MyThreaD := TMyThreaD.create(true);//Запускаем новый поток
  MyThreaD.FreeOnTerminate := true;
  MyThreaD.Priority := tpLower;
  MyThreaD.Resume;
  Button1.Caption := 'Стоп';
  Button2.Enabled := true;
  Button2.Caption := 'Пауза';
end;
//Кнопка пауза/продолжить
procedure TForm1.Button2Click(Sender: TObject);
begin
 if MyThreaD.Suspended then
 begin
  Button2.Caption := 'Пауза';
  MyThreaD.Resume;
 end
 else
 begin
  Button2.Caption := 'Продолжить';
  MyThreaD.Suspend;
 end;
end;
//Процедура выполняемая в потоке
Procedure TForm1.Proc;
var
 i : Longword;
begin
  for i := 0 to 100000 do//Долгий цикл
  begin
   ...
  end;
end;

[ART]

Проблемы возникнут, когда процедура будет вызываться через Synchronize

[NIch]

Не возникнут, если все правильно сделать...имхо...