MMSQueue:= TQueue.Create; MMSQueue.Push(StrNew(PChar(strAccidentTime)));//堆上申请空间 strRecv:= MMSQueue.Pop; argTime:= StrPas(strRecv); StrDispose(strRecv);//手动释放内存 MMSQueue.Free;
TQueue
原文：http://www.cnblogs.com/moonwind/p/4479452.html
