本文整理自网络,侵删。
PPL使用内部线程池为TTask对象提供服务,并且该池根据您已安装的许多CPU和实际运行的任务数量进行自我调节和自我调整。在PPL文档中对此进行了解释:RTL提供了并行编程库(PPL),使您的应用程序能够利用跨多个CPU设备和计算机的优势使任务并行运行。PPL包括许多高级功能,用于运行任务,加入任务,等待任务组等以进行处理。对于所有这一切,有一个线程池会自动自我调整(基于CPU的负载),因此您不必为此担心创建或管理线程。
从Delphi XE7开始,引入了全新的并行编程库用于简化并行编程,它位于System.Threading单元中。
下面是一个判断素数的简单例子:function IsPrime (N: Integer): Boolean;varTest: Integer;beginIsPrime := True;for Test := 2 to N - 1 doif (N mod Test) = 0 thenbeginIsPrime := False;break; {jump out of the for loop}end;end;
传统方式是循环按顺序逐个检测1到X间的数字,然后把总数存放到一个变量里(此处的Tot是一个Integer)constMax = 50000; // 50K
for I := 1 to Max dobeginif IsPrime (I) thenInc (Tot);end;
使用新的并行库,此处可以把for语句替换为类函数TParallel.For,然后把要执行的代码放到匿名过程里,作为参数传递给它。另外,因为现在是多线程运行,为了避免出现问题,还应当把Inc替换为TInterlocked.Increment
TParallel.For(1, Max, procedure (I: Integer)beginif IsPrime (I) thenTInterlocked.Increment (Tot);end);
为了检查效率上的区别,我们可以使用System.Diagnostics单元的TStopWatch来测试各版本的运行时间。在我的双核VM上,标准for循环用时415毫秒,并行for循环则用时192毫秒。同样的测试在我的Mac上,标准for循环用时382毫秒,并行for循环用时90毫秒。
来源:https://tieba.baidu.com/p/3314069553?red_tag=0956087003
相关阅读 >>
Delphi 动态给combobox赋值,从combobox中取值
Delphi strtofloat 将“字符型”转换成“浮点型”
Delphi 如何在webservice中获取客户端的ip地址
更多相关阅读请进入《Delphi》频道 >>