我可以使用OTL来并行化嵌套循环吗?

时间:2014-04-10 13:47:32

标签: delphi omnithreadlibrary

我想知道我是否可以使用OTL来并行化这个循环。

我有以下代码。

for i := 1 to XRes do
 begin
   for j := 1 to XRes do
     begin
       GridMat.Elem[i,j] := StrToFloat(ListOfValues[(i-1)+((j-1)*Xres)]);
     end;
   Invalidate;
 end;

是否可以将GridMat(来自SDL_matrix.TMatrix)作为参数传递给所有并行ForEach并将值添加到其中。

1 个答案:

答案 0 :(得分:4)

如果您使用Parallel.ForEach的同步版本(默认版本;即如果您不使用NoWait说明符),那么您只需通过变量捕获即可访问GridMat。

这样的事情应该起作用:

Parallel.ForEach(1, XRes).Execute(
  procedure (const i: integer)
  var
    j: integer;
  begin
    for j := 1 to XRes do
      GridMat.Elem[i,j] := StrToFloat(ListOfValues[(i-1)+((j-1)*Xres)]);
  end);