关于delphi XE7中的动态数组和并行编程(第一部分)
2014-09-27 16:47
393 查看
本文引自:http://www.danieleteti.it/category/embarcadero/delphi-xe7-embarcadero/
并行编程库是delphi XE7中引进的最受期待的功能之一。下面是一个简单的并行编程例子:
这段代码配置成3个并行任务,同时等待他们执行完成。最后通过Showmessage显示结果。这段代码需要5秒来执行,在第一秒里边有3个任务在同时运行,从第二秒到第三秒有2个任务在同时执行,在最后的2秒钟只有一个任务在执行。所有的内部线程都是通过一个线程池(thread pool)来管理的。嘿,这就是并行啦!
并行编程库是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)来管理的。嘿,这就是并行啦!
相关文章推荐
- Delphi中关于动态数组的引用操作
- Delphi中将文件流的数据写入动态数组
- Delphi中的动态数组!
- Delphi中的动态数组总结
- Delphi 无类型参数传递动态数组和静态数组
- 关于C#的垃圾回收以及List动态数组的用法。
- 动态数组介绍----Delphi
- Delphi中关于 array of const 变体开放数组参数
- 关于动态数组指针操作的两个例子
- 动态数组和指针转换(DELPHI)
- Delphi动态数组详解
- 关于两个用于创建和销毁二维动态数组的宏
- delphi里动态数组和指针的运用
- 关于动态数组、静态数组转换为字符串的一些问题 - 给 "厨师" 的回复
- 菜鸟啊,关于动态数组的释放问题
- delphi中为动态数组分配空间的问题
- DELPHI中记录类型动态数组删除
- 动态数组介绍----Delphi
- Delphi 的动态数组1
- 关于DELPHI数组,指针,字符串转换的例子!(转)