大家都要好好学习delphi XE线程同步对象单元System.SyncObjs

大家都要好好学习delphi XE线程同步对象单元System.SyncObjs

System.SyncObjs.pas;

一、不是存pascal就直接汇编

二、支持MSWINDOWS、POSIX和MACOS全平台

三、常用类型（异常类就不列了）

1、TCriticalSectionHelper = record helper for TRTLCriticalSection  //运行时临界区助手 MSWINDOWS

2、TConditionVariableHelper = record helper for TRTLConditionVariable  //运行时条件变量助手 MSWINDOWS

3、TWaitResult = System.Types.TWaitResult; 

其中：TWaitResult = (wrSignaled, wrTimeout, wrAbandoned, wrError, wrIOCompletion);

附带说说：

System.Types.TMultiWaitEvent  ：抽象基类在System.Classes中完全实现，并由IAsyncResult.GetAsyncWaitEvent返回。此类允许使用WaitForAll（）和WaitForAny（）阻塞任意数量的这些事件。虽然这个类可以通过创建子类来实现，但是将由System.Classes提供。任何创建替代实现的尝试都必须遵循此抽象虚拟方法中的“约定”。即在System.Classes的实现代码中完成：  System.Classes.TMultiWaitEventImpl = class(TMultiWaitEvent) :多线程等待的实现类  ：在自动加锁的模式下等到线程执行完毕的信号灯，否则按照指定超时时间等待下去，执行完毕自动解锁。

System.Types.IAsyncResult  : 从各种“BeginXXX”方法返回的接口，用以提供代码的异步执行。其实现：

System.Classes.TBaseAsyncResult ：//：异步执行结果的基类，且实现了基