[ApxaHGe1]

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

Код:

1 2 3 4 5 6 7

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

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;