这是一篇很枯燥的文章，可能很多人会觉得没有什么卵用。但是只有在搞清楚理论之后才可以完美的去实现。所以这篇文章作为多线程的开篇
其实多线程是一个很大的话题，我也仅仅停留在简单的应用，至于以后的深入只能靠自己
时间切片
在大多数支持多线程的系统中，可能有许多用户在计算机系统上同时发出请求。通常，系统中的物理处理器数量少于可能并行运行的线程数量。而此时就需要依靠时间切片完成，大多数系统都支持时间切片，也称为先发制人的多任务处理。
在时间切片的系统中，线程会运行一段时间，然后被抢占; 也就是说，硬件计时器触发，导致操作系统重新评估应运行哪些线程，可能停止对当前运行的线程执行，以及运行最近未执行的其他线程。这甚至允许单处理器机器运行多个线程。在PC上，时间片往往大约是五十五毫秒。
55 毫秒的时间给人的感觉接近无感，以为是多个任务在同时运行。线程不应该改变程序的语义。他们只是改变了操作的时间。
下面几种场景我们都需要多线程的方式来完成任务
- 进行冗长的处理：当Windows应用程序正在计算时，它无法再处理任何消息。结果，无法更新显示。
- 进行后台处理：某些任务可能不是时间关键，但需要连续执行。
- 执行I / O工作：磁盘或网络的I / O可能会出现不可预测的延迟。线程允许您确保I / O延迟不会延迟应用程序的不相关部分。
时间切片的概念也不小，这里不做深入讨论，仅仅产生一个认知即可
Delphi支持两种线程的启动方式，当然也有可能是 3 种
- Win32API
- TTHread类
- 线程池：这种方式我没有用到，同时在掌握上面两种方式之后线程池自然也会掌握，所以我们把学习的重点放在前面两种
Delphi使得线程启动变得容易。在获取子线程执行之前，通常需要在线程中设置一些初始状态。通过创建挂起的线程（构造函数的参数），可以确保线程中的所有代码都不会执行，直到线程恢复为止。
API启动
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btn2: TButton;
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{工作线程调入函数，stdcall用于多个线程排序以及系统级别调用加此关键字}
function MyFun(p:Pointer):integer;stdcall;
var
i:integer;
begin
for i := 0 to 500000 do
begin
with Form1.Canvas do
begin
Lock;
{50和10是坐标X和Y}
TextOut(50,10,IntToStr(i));
Unlock;
Application.ProcessMessages;
end;
end;
end;
{工作线程，拖动窗口时计数不会停顿，因为和主线程分开工作了}
procedure TForm1.btn2Click(Sender: TObject);
var
{用于接收线程返回句柄，也可以用DWORD}
ID:THandle;
begin
{API创建线程}
CreateThread(nil,0,@MyFun,nil,0,ID);
end;
end.
TThread
其实在Delphi中更建议使用该类完成线程相关的操作
unit UnitThread;
interface
uses
Vcl.Forms, Vcl.Dialogs, System.SysUtils, System.Classes;
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
implementation
uses
UnitMain;
{ TMyThread }
procedure TMyThread.Execute;
var
I: Integer;
begin
FreeOnTerminate := False;
I := 1;
while True do begin
if FreeOnTerminate then
Exit;
form1.lbl1.Caption := '线程ID：' + Self.ThreadID.ToString + '：' + I.ToString;
TThread.Sleep(300);
I := I + 1;
end;
end;
end.
{启动线程的代码}
procedure TForm1.btn1Click(Sender: TObject);
begin
Thread := TMyThread.Create(True);
Thread.Start;
end;
通过代码可以很明显的发现 FreeOnTerminate 这玩意儿是可以控制线程的启停
OnTerminate事件
当线程真正完成执行时，会发生OnTerminate事件。它并没有在终止线程的方法被调用发生。此事件可能非常有用，因为它在主VCL线程的上下文中执行，就像传递给同步的方法一样。因此，如果一个人希望用一个在终止时自动释放自己的线程来执行一些VCL操作，那么这就是它的地方。
注意事项
要记住Execute()需要经常地检查Terminated属性的值，来确认是否要提前退出。尽管这将意味着当使用线程工作的时候，你必须关心更多的事情，但它能确保在线程结束时，能够完成必要的清除
在某些紧急情况下，你可以使用Win32 API函数 TerminateThread()来终止一个线程。但是，除非没有别的办法了，否则不要使用它。
在Delphi中还可以使用TThread类的CreateAnonymousThread函数来创建线程