Delphi中的线程类--之（5，大结局）

再来看对同步方法的处理：首先是从列表中移出（取出并从列表中删除）第一个同步方法调用数据。然后退出临界区（原因当然也是为了防止死锁）。

接着就是真正的调用同步方法了。

如果同步方法中出现异常，将被捕获后存入同步方法数据记录中。

重新进入临界区后，调用SetEvent通知调用线程，同步方法执行完成了（详见前面Synchronize中的WaitForSingleObject调用）。

至此，整个Synchronize的实现介绍完成。

最后来说一下WaitFor，它的功能就是等待线程执行结束。其代码如下：

function TThread.WaitFor: LongWord;

var

H: array[0..1] of THandle;

WaitResult: Cardinal;

Msg: TMsg;

begin

H[0] := FHandle;

if GetCurrentThreadID = MainThreadID then

begin

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!