procedure TProducer.Execute; begin repeat if n=MAXN then self.Suspend else begin n:=n+1; WriteLn(‘Produced one item! n=’,n); if n=1 then cons.Resume; end; until false; end; procedure TConsumer.Execute; begin repeat if n=0 then self.Suspend else begin n:=n-1; WriteLn(‘Consumed one item! n=’,n); if n=MAXN-1 then prod.Resume; { GetItem; ConsumeItem; } end; until false; end; 运行一段时间之后，终于看见DeadLock了……Old Blog Link: http://computer.mblogger.cn/henryhu/posts/61832.aspx