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

转载于:https://www.cnblogs.com/sensor/p/3996566.html