Пауза в потоке

Posted by micher under Delphi

Не работает пауза в потоке. В чём может быть проблема?

Создаю потоки так:

var

  TH1:TMyThread;

...
procedure TForm1.Button2Click(Sender: TObject);

begin
 Acc:=-1;

    Work:=true;

       for Thread:=1 to Form3.SpinEdit1.Value do

       begin

         TH1:=TMyThread.Create(true);

         TH1.FreeOnTerminate:=true;

         TH1.Priority:=tplower;

         TH1.Resume;

       end;
        Thread:=Form3.SpinEdit1.Value;
   end;

end;

Но пауза не работает:

TH1.Suspend;

dmitriegorovih

Все правильно кроме того что надо использовать массив потоков

var

TH1:array [1..10] of TMyThread;

...

for l:=1 to 2 do begin

TH1[l]:=TMyThread.Create(true);

         TH1[l].FreeOnTerminate:=true;

         TH1[l].Priority:=tplower;

         TH1[l].Resume;

         end;

А на паузу ставить все как-то так

for l:=1 to 2 do begin

TH1[l].Suspend;

end;

тема на форуме

Похожие статьи

• Передача данных при нажатии на кнопку в течении минуты
• Освободить память после потока
• Пример использования потока в форме
• Пример передачи значения переменной потоку
• Проверить состояние потока
• TThread и GUI
• Псевдопараллельное выполнение процедур (Потоки)
• Как проверить существование потока?
• Создание своего класса потока
• Использование таймера в потоке