好望角: Event阻塞写操作 [阅读: 399] 2009-03-25 09:28:51 Write: AEvent.wait(INFINE); ALock.Enter; AVar := AValue; ALock.Leave; Read: AEvent.Reset; ALock.Enter; BVar := AVar; ALock.Leave; AEvent.Set;