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