[ApxaHGe1]

Здравствуйте, есть поток, в котором выполняется определнный код

Код:

procedure TMyThread1.DoWork;
begin
for i:=0 to Form1.Listbox1.items.count - 1 do
begin
// 
end;
end;

Суть в том что после каждого итема взятого из лист бокса мне нужно сделать паузу в 30 секунд, и следовательно если итемов > 100 то процесс займет значительно долгое время!
Уважаемые знатоки, вопрос: "Как сделать мой этот цикл в 10 потоках? или более" ?

Отвечает...

[Pyro]

В потоках не шарю, но я бы сделал, чтобы поток работал с одним итемом, который при создании ему передается, и при нажатии на кнопку создать по потоку на каждый итем

[ApxaHGe1]

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

В потоках не шарю, но я бы сделал, чтобы поток работал с одним итемом, который при создании ему передается, и при нажатии на кнопку создать по потоку на каждый итем

Думаю 10.000 потоков будет круто, не правда ли ?

[Aristarh Dark]

Я в потоках шарю, но все равно не могу понять в чем задача заключается.

[ApxaHGe1]

Сообщение от Aristarh Dark

Я в потоках шарю, но все равно не могу понять в чем задача заключается.

Запустить мой цикл в 10 потоках

Я сейчас создал массив потоков, вроде все нормально, но каждый из потоков берет одинаковый итем из ЛистБокса, что не желательно...

[M.A.D.M.A.N.]

Можно создать n-е кол-во потоков с такимусловием, что кадый поток будет обрабатывать свой диапазон айтемов.
Или я чето не понимаю в твоей %PROGRAM%.

[Pyro]

От лукавого всё это, имхо надо один поток - один итем
Ежели хочется чтобы было 10 одновременно, то запускать их с перерывом в среднеевремяжизни/10 сек

[lmikle]

Да не, нужен просто стек заданий.
Каждый поток просто будет брать очередное задание из очереди и обрабатывть его. Если очередь пуста, то поток отключается.

Код:

var
  CS : TCriticalSection;

procedure TMyThread.Execute;
var
  AItem : String;
  HaveWork : Boolean;
begin
  HaveWork := True;

  While HaveWork Do begin

  Sleep(30000); // Твоя задержка

  S := '';  
  CS.Enter;
  Try
    If MainForm.List1.Items.Count > 0 Then
      Begin
        AItem := MainForm.List1.Items[0];
        MainForm.List1.Items.Delete(0);
      End;
  Finally
    CS.Leave;
  End;

  HaveWorl := S <> '';

  If HaveWork Then ProcessItem(AItem); // обработка задания

  end; // While
end;