Остановка/Возобновление цикла

[Зод]

В Делфи как я понял есть два ключевых слова это Break и Continue.
Бряк останавливает цикл полностью. Continue перешагивает через значение ( пропустить одно значение в цикле) а я хочу остановить цикл и возобновить его по нажатию клавиши.
Я думаю что нужно запомнить i в момент остановки цикла и затем продолжить с этого места но как? Весь гугл и этот форум переискал нет ничего о возобновлении циклов. Это вообще реально сделать?
Сталкивался с остановкой цикла уже по бряку но я это делал из одной процедуры а мне нужно остановку/возобновление на другой кнопке повешать. Подскажите в каком направлении искать.
Вот например есть же abort он останавливает цикл но я незнаю как его использовать из другой кнопки и возобновить потом цикл.

[evg_m]

Весь гугл и этот форум переискал нет ничего о возобновлении циклов. Это вообще реально сделать?

Надо не возобновлять цикл, а начинать новый (или тот же самый) но с другими (запомнеными) начальными значениями.

Я думаю что нужно запомнить i в момент остановки цикла

[Serge_Bliznykov]

в принципе, я полностью согласен с evg_m.

ну есть разные нюансы, которые зависят от того, что это за цикл, для чего выполняется, для чего ставится на паузу и т.д. и т.п.

и ещё, может быть, Вам будет полезно ознакомится с обсуждением аналогичных вопросов на данном форуме.
например,

http://www.programmersforum.ru/showthread.php?t=13191

http://programmersforum.ru/showthread.php?t=5343

http://www.programmersforum.ru/showthread.php?t=3002

[SNUPY]

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

[Зод]

То есть мне после бряка или аборта запомнить значение i в глобальную переменную и при возобновлении начать новый цикл с сохраненой i?
________________

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i2:=u;
 For i:=i2 to 1000 do
 begin
  Application.ProcessMessages;
  if a then
   begin
    a:=false;
    u:=i;
    exit;
   end;
  Memo1.Lines.Add(Inttostr(i));
   if i=999 then
    begin
     u:=0;
     i2:=0;
    end;
  end;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
i2:=0;
u:=0;
end;

Я вот так сделал... только на сколько это все правильно?)
Страно но почему если я ставлю в последнее условие:

if i=1000 then
    begin
     u:=0;
     i2:=0;
    end;

То при повторном нажатии на первую кнопку цикл не происходит. Приходится 2 раза нажимать что бы он начал работать. А при 999 все нормально работает. Это с чем связано?

[Stilet]

и при возобновлении начать новый цикл с сохраненой i?

Теоретически да.
На практике это редко делается.
ТЫ лучше скажи для чего это нужно.

[Зод]

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

Теоретически да.
На практике это редко делается.
ТЫ лучше скажи для чего это нужно.

У меня есть мемо с ссылками, нужно парсить каждую страницу. Стоит цикл на загрузку через синапс страницы. Но интернет бывает глючит и нужно приостановить работу программы. А бывает и просто остановить программу по каким-либо соображениям. Вообщем я хочу сделать паузу для циклов.
Так же на форме чекбоксы как уже писал, они определяют что искать на страницах. Можно конечно тупо удалять строчки из мемо (отработанные) и не парится но мне не нравится этот вариант. Так как мемо должно быть таким какое и при старте. Что бы руками можно было проверить как парсит.

[Serge_Bliznykov]

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

Я вот так сделал... только на сколько это все правильно?)

ну, принцип нормальный (если уж делать так, а не использовать потоки!).

только я бы переменную i2 выкинул напрочь (она Вам не нужна), а код написал таким образом:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
 For i:=u to 1000 do
 begin
  Application.ProcessMessages;
  if a then
   begin
    a:=false;
    u:=i;
    exit;
   end;
   Memo1.Lines.Add(Inttostr(i));
  end;
  u := 0; {после окончания цикла сбрасываем u}
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  u:=0;
end;

[Alter]

Как вам этот способ?
Пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ProgressBar1: TProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    aSt :Boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I :Integer;
begin // run
 Button1.Enabled := False;
 Button2.Enabled := True;
  try
 for I := 0 to 100 do
 begin
   Application.ProcessMessages;
   while aSt do
    Application.ProcessMessages;
   ProgressBar1.Position := i;
   Sleep(50); // только для примера задержка
 end;
  finally
 aSt := False;
 Button1.Enabled := True;
 Button2.Enabled := False;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin // Pause-Resume
 aSt := not aSt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin // default
 aSt := False;
end;

end.

[Stilet]

Предлагаю такой пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tr=class(TThread)
    protected
     procedure Execute; override;
  end;
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   t:Tr;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  t.Suspended:=not TCheckBox(Sender).Checked;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  t:=Tr.Create(true);
  t.Priority:=tpIdle;
  t.Start;
end;

{ Tr }

procedure Tr.Execute;
begin
  inherited;
 while true do begin
  Synchronize(procedure begin
Это пример:
    form1.ListBox1.Items.Add(TimeToStr(time))
Собственно тут код работы со страницами
   end);
   Sleep(1000);
 end;
end;

end.

Подходит?