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

【问题标题】：Can I use OTL to parallelize nested loops?我可以使用 OTL 来并行化嵌套循环吗？
【发布时间】：2014-04-10 13:47:31
【问题描述】：

我想知道是否可以使用 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 并向其添加值。

【问题讨论】：

标签： delphi omnithreadlibrary

【解决方案1】：

如果您使用 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);

【讨论】：