如何在Delphi中实现并行循环？

Question

如何在Delphi(Delphi 200X,Delphi XE)中实现并行循环？怎么做这个最好的方法？有没有通用的解决方案？

请举例说明.

Answer 1

可能目前最好的解决方案是OmniThreadLibrary中的Parallel For Loop构造.您传递一个集合,或表示下限和上限的一对整数,以及表示循环体的匿名方法,它使用线程池并行运行for循环.

请注意,这仅在循环体方法能够独立存在时才有效.如果它修改任何外部变量或依赖于先前在循环中进行的计算的值,则它无法并行化.

可在此处找到OmniThreadLibrary并行的介绍.例如,迭代数字的简单for循环如下所示:

Parallel.ForEach(1, testSize).Execute(
  procedure (const elem: integer)
  begin
    // do something with 'elem'
  end);