Shulou(Shulou.com)06/03 Report--

This article introduces the knowledge of "how to use Delphi built-in thread pool". In the operation of practical cases, many people will encounter such a dilemma, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!

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. " This is the end of how to use Delphi built-in thread pool. Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.