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,提供给您最信赖的网络购物享受。