Delphi 多线程的阻塞和线程之间的同步

一个简单的程序，里面只有一个线程。对于 Delphi 的程序来说，也就是只有一个主线程。代码从头到尾一行一行地执行。

一个复杂的程序，可能需要很多不同的线程。

多个线程，可能需要协调它们的执行步骤（同步）。

例子

比如，A 出差后要报销住宿和打车的发票，他的执行流程是：

填写发票；
提交发票给经理；
等待经理签字；
拿到发票的经理签字后；提交发票给财务；
财务付钱。
从财务拿到钱以后，数钱，核实数字；
钱的金额没问题，报销流程结束；
金额有问题，重新向财务发起报销核实流程。

如果超过时间经理没有签字，则：
向经理发出一个请求发票签字的提醒。

上述流程，在程序中由一个线程去顺序执行。假设我们把这个线程叫做主线程。

然后，经理签字，由另外一个线程去执行；

然后，财务付钱，由另外一个线程去执行。

因此，主线程在提交发票给经理签字以后，就需要阻塞，不要继续执行下面的流程。一直阻塞到经理的签字结束，才继续往下走流程。

同样，继续往下的流程走到提交发票给财务，主线程再次阻塞，等到财务处理完，从财务手上拿到钱，主线程的流程才继续往下走。

上面的例子，描述了两个线程之间的【同步】。

解决方案

当一个线程（线程A），执行到某个位置，需要停下来等待另外一个线程（线程B）完成某些动作的时候，在 Delphi 程序里面，是线程A调用 TEvent 来进行阻塞。当线程B的动作完成后，由线程B调用同一个 TEvent 的实例的 SetEvent 方法，来解除线程A的阻塞。

例子代码

unit Unit3;
{------------------------------------------------------------------------