摘要： Delphi里面的TCriticalSection对象是将包含它的对象给锁住。比如： TAsioDataBuffer = class procedure Setstate(const Value: Integer); //数据锁 public FDataLock, FSendLock: TCriticalSection; Writedata, SendData, Data1, data2: TMemoryStream;end;var MyAsioDataBuffer:TAsioDataBuffer;begin //这一句是将MyAsioDataBuffer对... 阅读全文