Как нескольким потокам брать строку из одного списка по очереди?

[trafbite]

Привет.

Не нашел решения. Нужно, что бы каждый из потоков брал строку из списка, но такую, которую другие потоки еще не брали, например, первый поток взял 1-ю строку, второй - 2-ю, третий - 3-ю, n-ый n-ю...

В обработчике нажатия вот что:

procedure TForm1.Button1Click(Sender: TObject);
var
   MyThread: TThread;
begin
[...]
   MyThread:=Thr.Create;
[...]
end;

В процедуре Execute потока вот что (поток качает страницу и далет с ней что-нибудь):

[...]
var
   http: THTTPSend;
[...]
begin
[...]
   http := THTTPSend.Create;
   http.Protocol := '1.1';
   try
      http.Clear;
      http.HTTPMethod('GET', Here_Is_The_URL_From_List);
   finally
      http.Free;
   end;
[...]

Вот как сюда "Here_Is_The_URL_From_List" передавать номер той строки, которую еще ни один поток не брал?

Ну не грузить же список в Мемо и не передавать же через synchronize?

Выручайте, господа!

[Пепел Феникса]

синхронизация между потоками, через критическую секцию.

вошел в секцию
взял строку
увеличил счетчик
вышел.

[Аватар]

Мемо то зачем? Можно и в StringList держать. Но синхронизировать получение строки все равно прийдется. Нет желания synchronize использовать? Как вариант используйте критическую секцию для синхронизации

[trafbite]

По критической секции понял, спасибо!
А если у меня (условно) 200 МЛН страниц - StringList и, тем более, Memo не загрузишь ? Выход только БД?

[Человек_Борща]

Если число поок даст юзер:
Число строк делим на число потоков, остаток забрасываем последнему потоку.

Если надо динамически:
или число потоков задаем по словию, чтобы ихбыло не больше 57, но и строк на каждый поток не приходилось более N, и таким вот образом считаем.

[Пепел Феникса]

Число строк делим на число потоков, остаток забрасываем последнему потоку.

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

[trafbite]

А что если не грузить в память весь список, а в критической секции инкрементировать счетчик и брать нужную строку из файла. Тогда получается в каждом потоке при каждом проходе будет обращение к файлу - это же не есть гуд?

Сообщение от Пепел Феникса

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

Хоть и не силен, но соглашусь

[Пепел Феникса]

А что если не грузить в память весь список, а в критической секции инкрементировать счетчик и брать нужную строку из файла. Тогда получается в каждом потоке при каждом проходе будет обращение к файлу - это же не есть гуд?

ну с файлом счетчик как бы не нужен.
вошел в секцию
прочел строку
вышел из секции.

Хоть и не силен, но соглашусь

я просто сталкивался с таким уже.

[trafbite]

Сообщение от Пепел Феникса

ну с файлом счетчик как бы не нужен.
вошел в секцию
прочел строку
вышел из секции.

Как же не нужен, а как тогда поток поймет какую именно строку ему брать?

[Пепел Феникса]

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