如何使用Delphi自带线程池

本篇内容介绍了"如何使用Delphi自带线程池"的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

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