"Заморозка" работы программы

[artemavd]

Добрый день! Интересует такой вопрос. Можно ли как-то заморозить на время работу своей программы? Например есть кнопка, в которой выполняется некий код в цикле. Надо, чтобы нажав на вторую кнопку, данный цикл приостановил свою работу, пока не нажмется снова первая кнопка. Возможно ли так сделать?

[Serge_Bliznykov]

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

А можно и алгоритмически, без потоков разрулить...
Например, так (цикл по Button1, вторая кнопка "ставит цикл на паузу", ей же и продолжается выполнение):
да.и ещё. подобный цикл будет выполняться НАМНОГО медленнее, чем цикл обычный простой цикл! Т.е. если нужна эффективность (скорость, быстродействие), такой способ не очень подходит...)

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    flagPause : boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  flagPause := false;
end;



procedure TForm1.Button1Click(Sender: TObject);
var i : LongInt;
  s : string;
begin
  s := '';
  for i:=1 to 400 do begin
    // проверка и постаовка цикла на паузу...
    Application.ProcessMessages;
    while flagPause do begin
      Application.ProcessMessages;
      Sleep(10);
    end;
    s := s + IntToStr(i);
    sleep(10); // это просто для отладки, чтобы затормозить цикл...
  end;
  Memo1.Lines.Text := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  flagPause := Not flagPause;
end;

[dmitriegorovih]

ну или через потоки

  TNewThread = class(TThread)
  private
    Progress: integer;
    procedure SetProgress;
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  NewThread: TNewThread;
implementation

{$R *.dfm}
   procedure TNewThread.Execute;
var
  i: integer;
begin
  for i:=0 to 100 do
  begin
    sleep(50);
    Progress:=i;
    Synchronize(SetProgress);
  end;
end;

procedure TNewThread.SetProgress;
begin
  Form1.ProgressBar1.Position:=Progress;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  NewThread.Resume;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NewThread.Suspend;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
end;

[Stilet]

// проверка и постаовка цикла на паузу...

Далеко не оптимальный метод... Потоками лучше.

[GunSmoker]

ну или через потоки

http://www.transl-gunsmoker.ru/2008/...post_5991.html