本篇內(nèi)容介紹了“如何使用Delphi自帶線程池”的有關(guān)知識(shí)，在實(shí)際案例的操作過(guò)程中，不少人都會(huì)遇到這樣的困境，接下來(lái)就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、南昌縣網(wǎng)絡(luò)推廣、重慶小程序開發(fā)、南昌縣網(wǎng)絡(luò)營(yíng)銷、南昌縣企業(yè)策劃、南昌縣品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供南昌縣建站搭建服務(wù)，24小時(shí)服務(wù)熱線：028-86922220，官方網(wǎng)址：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自帶線程池”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！