13518219792
本篇内容介绍了“如何使用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自带线程池”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！
