如何使用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自帶線程池”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關的知識可以關注億速云網(wǎng)站，小編將為大家輸出更多高質量的實用文章！