Delphi 并行程序設(shè)計課件

1、Delphi 并行程序設(shè)計 之TTask TTask 和 TThread TTask ITask Array of ITask Task.FutureDelphi 并行程序設(shè)計 之TTaskTTask 和 TThread TThread（線程） 是單核時代的產(chǎn)物， 多個Threads 按一定次序輪流占用CPU 時間，執(zhí)行線程過程。 TTask （任務(wù)） 是多核時代的產(chǎn)物， 多個Tasks 占用各自的CPU，相對獨立運行， 所以速度上，比TThread 快。Delphi 并行程序設(shè)計 之TTaskTTask（任務(wù)對象）和 ITask（任務(wù)實例）執(zhí)行一個任務(wù)的方式一】直接運行一個任務(wù)，返回值為IT

2、ask型。 TTask.Run（）二】創(chuàng)建一個任務(wù)實例，需要的時候執(zhí)行。 var aTask:ITask; /聲明 aTask:=TTask.create(); /創(chuàng)建 aTask.start; /執(zhí)行 Delphi 并行程序設(shè)計 之TTaskTTask.Run()和TTask.Create(); 參數(shù)說明Run(Sender: TObject; Event: TNotifyEvent): ITask; / 參數(shù)為一個對象及事件，返回一個任務(wù)實例Run(const Func: TProc): ITask; /參數(shù)為一個過程名 或者是 一個匿名過程；返回一個任務(wù)實例 以下兩種還沒有嘗試 Run(

3、const Func: TProc; APool: TThreadPool): ITask;Run(Sender: TObject; Event: TNotifyEvent; APool: TThreadPool): ITask;Delphi 并行程序設(shè)計 之TTaskArray of ITask 任務(wù)數(shù)組，或者程任務(wù)隊列Var aTList: Array of ITask;/ 聲明數(shù)組setlength(aTlist,2);/設(shè)置長度aTList0:=TTask.Run();/執(zhí)行任務(wù)一aTList1:=TTask.Run();/執(zhí)行任務(wù)二TTask.WaitForAll(aTList);/

4、等待所有任務(wù)完成TTask.WaitForAny(aTList);/等待任一任務(wù)完成ContinueProcedure;/繼續(xù)執(zhí)行以下過程Delphi 并行程序設(shè)計 之TTaskTTask.FutureVar aFutureValue:IFuture;/聲明 變量名：IFutureaFutureValue:=TTask.Future( / 創(chuàng)建Future任務(wù) Function:string / 字符串型匿名函數(shù) begin sleep(3000); result:=hello; end); /當(dāng)且只有當(dāng) Future 任務(wù)計算完成后才會執(zhí)行以下過程，否則一直等待 Memo1.lines.ad

5、d(aFutureValue.Value);Delphi 并行程序設(shè)計 之TTaskUses 語句中需包含system.Threading;TParallel TParallel.For() TParallel.Join()TParallelTParallel.For() 【一】傳統(tǒng)forVar i,total:integerFor i:=1 to 90000 doBegin inc(total);/自加End;【二】TParallel.forVar total:integer;TParallel.for(1,90000,1,procedure(i:int64)BeginTInterLocked.Increment(total);/鎖定自加End; TParallelTParallel.Join()Join the procedures to run together.var aPL: array of TProc;/聲明一過程數(shù)組setlength(aPL,2);/ 設(shè)置數(shù)組長度aPL0:=WorkOne;/WorkOne