关于delphi XE7中的动态数组和并行编程（第一部分）

本文引自：http://www.danieleteti.it/category/embarcadero/delphi-xe7-embarcadero/

并行编程库是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)来管理的。嘿，这就是并行啦！