如何使用Delphi自带线程池
本篇内容介绍了“如何使用Delphi自带线程池”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!
创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都网站制作、成都网站设计、南昌县网络推广、重庆小程序开发、南昌县网络营销、南昌县企业策划、南昌县品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供南昌县建站搭建服务,24小时服务热线:028-86922220,官方网址:www.cdcxhl.com
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Threading, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private lpThreadPool: TThreadPool; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var lpTask: ITask; begin lpTask := TTask.Create( procedure() var i: integer; begin for i := 1 to 10 do TThread.Synchronize(nil, procedure begin Memo1.Lines.Add(IntToStr(i)); end); end, lpThreadPool); lpTask.Start(); lpTask := TTask.Create( procedure() var i: integer; begin for i := 11 to 20 do TThread.Synchronize(nil, procedure begin Memo1.Lines.Add(IntToStr(i)); end); end, lpThreadPool); lpTask.Start(); lpTask := TTask.Create( procedure() var i: integer; begin for i := 21 to 30 do TThread.Synchronize(nil, procedure begin Memo1.Lines.Add(IntToStr(i)); end); end, lpThreadPool); lpTask.Start(); end; procedure TForm1.FormCreate(Sender: TObject); begin lpThreadPool := TThreadPool.Create(); lpThreadPool.SetMaxWorkerThreads(1); lpThreadPool.SetMinWorkerThreads(3); end; end.
“如何使用Delphi自带线程池”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!
文章标题:如何使用Delphi自带线程池
地址分享:http://scyanting.com/article/ijepoc.html