Потоки

[danil123]

Необходимо , чтобы один поток взял из файла первую строчку, второй вторую и т.д. У меня лишь получается, что все потоки грузят одну и ту же строку. Как исправить?

[_Den_1984]

Поток будет грузить только то что ты ему укажешь грузить. Значит где то ошибка. на код посмотреть бы.

[danil123]

Основной код

procedure TForm1.Button1Click(Sender: TObject);
var pot:array[1..10]of potok;
i:integer;
begin
for i :=1 to 10   do
begin
pot[i]:=potok.Create(true);
pot[i].FreeOnTerminate:=true;
pot[i].Resume;
end;
    end;

Код потоков

implementation
uses unit1;

procedure potok.execute;
begin
//здесь загрузка из файла 
end; 

procedure potok.synch;
begin
while True do
       begin
  synchronize(execute);
  sleep(10);
       end;

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

Пускайте 1 поток, а он пускай создает 2 поток, тот поток создает 3 поток и так по леснеце вниз.
Каждый поток берет заранее подсчитанное кол-во строк для работы и отсекает их у файла(вырезает), файл передает вновь созданному им потоком, затем не обрабатывает, а ждет когда подчиненный ему поток завершить работу.

Получается что-то вроде лестницы с эффектом бумеранга. я бы так сделал.

[xoodoo]

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

Как исправить?

Убрать из потоковой процедуры обращение к файлу совсем.
Организовать построчное чтение файла в потоке-диспетчере, например, основном потоке.
Организовать в потоке-диспетчере создание доп.потоков, каждый из которых обрабатывает одну строку, переданную ему потоком-диспетчером параметром в конструкторе.

[Slym]

synchronize - убрать и забыть, пока не попросят впомнить