Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Вниз

остановка цикла   Найти похожие ветки 

← →
Vetal   (2008-03-13 16:47) [0]

Как притормозить выполнение цикла пока я button не нажму?

---

← →
Johnmen ©   (2008-03-13 16:49) [1]

Слегка притормозить или сильно?

---

← →
Сергей М. ©   (2008-03-13 16:55) [2]

> Johnmen ©   (13.03.08 16:49) [1]


Так чтобы сцепление не потерять)

---

← →
Семеныч   (2008-03-13 16:55) [3]

> Vetal   (13.03.08 16:47)

var
 Pause: boolean = True;

<начало цикла>  
...
while Pause do
begin
 Application.ProcessMessages;
 Sleep(1);
end;
Pause := True;
...
<конец цикла>

При нажатии кнопки: Pause := False;

---

← →
{RASkov} ©   (2008-03-13 16:58) [4]

О боже :) я про своё ;)
var APause, AStop: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
procedure Pause;
begin
  while APause do begin
   Application.ProcessMessages;
   Label2.Caption:=IntToStr(Random(1000));
   Sleep(100);
  end;
end;
begin
 AStop:=not AStop;
 while not Application.Terminated  and not AStop do begin
   if APause then Pause;
   Application.ProcessMessages;
   Label1.Caption:=IntToStr(Random(1000));
   Sleep(100);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 APause:=not APause;
end;

---

← →
Kolan ©   (2008-03-13 16:58) [5]

Вынести в поток. А там в цикл вставиь флаг.

---

← →
clickmaker ©   (2008-03-13 17:05) [6]

если в потоке, то лучше с помощью TEvent

---

← →
Kolan ©   (2008-03-13 17:08) [7]

> если в потоке, то лучше с помощью TEvent

Ну да и WaitForSingleObject ждать

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c