本文引自：

并行编程库是delphi XE7中引进的最受期待的功能之一。下面是一个简单的并行编程例子：

 

procedure TFormThreading.Button1Click(Sender: TObject); var   tasks: array of ITask;   value: Integer; begin   value := 0;   tasks := [   TTask.Create(procedure     begin       sleep(1000); // 1 seconds       TInterlocked.Add(value, 1000);     end).Start,  TTask.Create(procedure     begin       sleep(3000); // 3 seconds       TInterlocked.Add(value, 3000);     end).Start,  TTask.Create(procedure     begin       sleep(5000); // 5 seconds       TInterlocked.Add(value, 5000);     end).Start     ];  TTask.WaitForAll(tasks);  ShowMessage('All done: ' + value.ToString); end;

 

这段代码配置成3个并行任务，同时等待他们执行完成。最后通过Showmessage显示结果。这段代码需要5秒来执行，在第一秒里边有3个任务在同时运行，从第二秒到第三秒有2个任务在同时执行，在最后的2秒钟只有一个任务在执行。所有的内部线程都是通过一个线程池(thread pool)来管理的。嘿，这就是并行啦！