Delphi中TQueue的使用

rSMS = record
    iSMSStore: integer;
    iSMSIndex: integer;
  end;
  PSMS = ^rSMS;

 

var

    Queue: TQueue; //删除队列

    SMSPointer: PSMS;

begin

    New(SMSPointer);
    SMSPointer^.iSMSStore := 12;    //赋值
    SMSPointer^.iSMSIndex := 12;
    SMSRecQueue.Push(SMSPointer);    //把值Push到队列中

 

    SMSPointer := SMSRecQueue.Pop;    //取出队列中的值 通过SMSPointer^.iSMSStore, SMSPointer^.iSMSIndex获取值

   

    Dispose(SMSPointer);    //释放变量

end;

 

 

www.taoyou100.cn  淘友100 满意100，提供给您最信赖的网络购物享受。