并行编程提高软件处理速度

使用 TParallel 来提速你的循环，但总有些时候，你需要运行多个可以并行执行，而又并非循环的任务。
要执行此类任务，我们可以使用 System.Threading.TTask 和 System.Threading.ITask 来简化工作。

TTask提供了一个类来创建和管理ITask实例的交互，你可以通过WaitForAll或WaitForAny等待任务的执行完成。

举个例子，假设你有两个任务：A和B。如果A执行要3秒，B要5秒，那么执行这两个任务总共需要多久？
顺序执行时（不使用TTask/ITask） = 8秒
使用TTask.WaitForAll = 5秒
使用TTask.WaitForAny = 3秒

具体取决于你要做什么，返回的速度可以显著加快。下面让我们来看一段使用WaitForAll的代码例子：
procedure TFormThreading.MyButtonClick(Sender: TObject);
var
tasks: array of ITask;
value: Integer;
begin
Setlength (tasks ,2);
value := 0;

tasks[0] := TTask.Create (procedure ()
begin
sleep (3000); // 3 seconds
TInterlocked.Add (value, 3000);
end);
tasks[0].Start;

tasks[1] := TTask.Create (procedure ()
begin
sleep (5000); // 5 seconds
TInterlocked.Add (value, 5000);
end);
tasks[1].Start;

TTask.WaitForAll(tasks);
ShowMessage (*All done: * + value.ToString);
end;

上述例子中使用了一个ITask数组来处理任务集合。
返回结果Value是8000，尽管Sleep的 时间 共有8秒，但前3秒是并行执行的，之后2秒第二个任务也执行完毕。
也就是说，比起顺序执行两个任务，你节省了 3秒钟 的 时间 ，而这一切不需要你自己创建线程和处理它们的返回。

除了加速任务执行，你还可以使用TTask来防止在长 时间 执行后台任务时造成的用户界面冻结，要做到这一点，你只需要创建单独的一个任务并启动它，例如：
procedure TFormThreading.Button1Click(Sender: TObject);
var
aTask: ITask;
begin
// not a thread safe snippet
aTask := TTask.Create (procedure ()
begin
sleep (3000); // 3 seconds
ShowMessage (*Hello*);
end);
aTask.Start;
end;

第二个例子，如果运行，可能会允许用户点击按钮多次，并触发多次ShowMessage调用。
虽然如此，小心使用的话，这会是运行任务的一个强大方式。
这也是一个异步编程的例子，你可以启动任务，然后继续去做其他事，等待它返回后再去处理它的结果。

ITask提供了一组方法与属性来启动、等待、取消任务，同时还有一个状态属性（Created, WaitingToRun, Running, Completed, WaitingForChildren, Canceled, Exception）

ITask作为一个接口，如果你想的话，你总是可以创建实现该接口的自定义类，以提供更高的灵活性。