Снова я и снова геморрой, только уже с многопоточностью

[FleXik]

Вобщем потоки вроде и пашут но выдают один и тот же результат такое же количество раз сколько и запущено потоков, пробовал критические секции, только почему-то при запуске выдает ошибку (если их использовать), кнопки СТОП пока что нету (дабы небыло вопросов)... Не люблю потоки, и всегда у меня с ними проблемы, прошу помощи.

Кнопка СТАРТ:

Unit1

var
  Form1: TForm1;
  thr_potok:array [1..100] of th_potok;
  number:integer;

implementation

{$R *.dfm}

procedure TForm1.sButton5Click(Sender: TObject);
var
thread:integer;
begin
Form1.sButton5.Visible:=False;
Form1.sButton6.Visible:=True;
number:=-1; // это вроде и не обязательно
for thread:=1 to Form1.sSpinEdit1.Value-0 do
begin
thr_potok[thread]:=th_potok.Create(False); // тут пробовал менять на True, одно и то же...
thr_potok[thread].Priority:=tplower;
thr_potok[thread].FreeOnTerminate:=True;
thr_potok[thread].Resume;
end;
end;

Unit2

procedure th_potok.NextThread;
begin
inc(number);
end;

procedure th_potok.Execute;
var
// тут были переменные
i:integer;
s1, s2:TStringList;
begin
Form1.sButton5.Visible:=False;
Form1.sButton6.Visible:=True;
s1:=TStringList.Create;
s2:=TStringList.Create;
s1.LoadFromFile(Form1.sFilenameEdit1.FileName);
s2.LoadFromFile(Form1.sFilenameEdit2.FileName);
if not Terminated then
begin
Synchronize(NextThread);
//код
end;
end;

[Кольша]

Вот как делал это я:

TWorking=class(TThread)
id:integer;//уникальный id
  Private
   Protected 
      Procedure Execute; override;
  Public
    Constructor Create(CreateSuspended: boolean);
 destructor Destroy; override;
  end;
var
  job:integer=0;..счетчик заданий
  Thread:array [0..MAX_PATH] of TWorking;//кол во поток

implementation


{ TWorking }

constructor TWorking.Create(CreateSuspended: boolean);
begin
  inherited Create(CreateSuspended); 
  inc(job);//повышаем счетчик
end;

destructor TWorking.Destroy;
begin
  inherited;
end;
procedure TWorking.Execute;
begin
//code
end;
procedure createjob;
var
I:integer;
begin
I:=job;
Thread[i]:=Tworking.Create(true);
Thread[i].FreeOnTerminate:=true;
Thread[i].Priority:=tpnormal;
Thread[i].id:=i;
Thread[i].Resume;
end;
procedure term_Thread(Id:integer);
begin
if assigned(thread[id]) then thread[id].Terminate;//если поток под id жив останавливаем его
end;

[FleXik]

Кольша, спс за кусок кода, сейчас попробую

[FleXik]

то же самое... сколько потоков указываю столько раз выдает один и тот же результат (если потоков 5 то вместо 1 раза выдает 5 раз одно и то же (мне кажется таки нужны критические секции в моем случае))

при использовании TRTLCriticalSection после нажатия кнопки "СТАРТ" выдает ошибку Access violation 77A4224D

[Кольша]

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

[FleXik]

Кольша, что значит что я хочу получить от потоков?

пример как разбивать на части?

[Кольша]

Ну например тебе надо выполнить n действий, разбиваешь эти действие на X потоков
запускаещь цикл for i:=0 to round(n/x) do
create_job(i)ж

[FleXik]

Кольша, понимаешь, там где у меня основной код (который я убрал в коде выше), там ничего сверхестественного и сложного нету (пару запросов + парсинг кое каких параметров из запросов), но почему-то в RichEdit выдает столько же одинаковых ответов сколько и потоков указано, бред какой-то, я уже всю ночь гуглю но ничего не получается(

[FleXik]

не пойму одного, почему создаются сразу все (к примеру) 5 потоков и они все берут одни и те же строки из .txt вместо того чтобы брать следующие... возможно в цикле у меня трабл?

[Кольша]

Дак епт, надо указывать потоком с какого место брать, про это я тебе и толкую.
Они берут txt с самого начала, и делают одно и тоже.