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