Как правильно работать с тасками?

Question

[Xvir43]

Подскажите как правильно передать в таск параметры?

Function Test(Const Xn, Wn: Array of Real): Real; 
Var
  Sum: Real; // взвешенная сумма.
  i: Integer; // счетчик.
  tasks: array of itask;
begin
  Sum := 0;
  SetLength(tasks, High(Xn));
  For i := 0 To High(Xn) Do
  begin
    tasks[i] := TTask.Create(
      procedure()
      begin
        Sum := Sum + Xn[i] * Wn[i]; // подсчет взвешенной суммы.
      end);
    for I := 0 to High(tasks) do
      tasks[i].Start;
      TTask.WaitForAll(tasks);
  end;
end;

Сейчас ругается на Xn[i] * Wn[i] я так понимаю потому что нельзя обращаться к масивам из потока как правильно сделать?

Comments

[Hemul GM]

А зачем цикл снаружи? Просто используй один таск, в котором цикл.
Ругается он потому, что поток, который будет создан понятия не имеет о переменных Xn, Wn и i

[Xvir43]

Hemul GM, а как ему передать эти данные?цикл что бы создать пул заданий и выполнить его разом грубо говоря.

[Hemul GM]

Xvir43, по костыльному, можешь передать через глобальные переменные

[Hemul GM]

Xvir43, ты можешь передавать переменные, но именно переменные, а не Xn[i]. Т.е. помести их в два буфера и передай в таск.

[Hemul GM]

Xvir43,

Внимательно только сравни.

function Test(const Xn, Wn: array of Real): Real;
var
  Sum: Real; // взвешенная сумма.
  i: Integer; // счетчик.
  tasks: array of itask;
  XnBuf, WnBuf: Real;
begin
  Sum := 0;
  SetLength(tasks, Length(Xn));
  for i := 0 to High(Xn) do
  begin
    XnBuf := Xn[i];
    WnBuf := Wn[i];
    tasks[i] := TTask.Create(
      procedure()
      begin
        Sum := Sum + XnBuf * WnBuf; // подсчет взвешенной суммы.
      end);
  end;
  for i := 0 to High(tasks) do
    tasks[i].Start;
  TTask.WaitForAll(tasks);
end;