TQueue有关问题

求助：TQueue问题
需要把数组赋值给队列，然后再出队赋值给数组

var
arr1,arr2:array of byte;
MyQueue:TQueue;
i,Len,j:integer;
begin
 Len:=10;
 MyQueue:=TQueue.create;
 for i:=0 to Len-1 do
 begin
  MyQueue.push(@arr1[Len]);//这样子对不对？
 end;
 for j:=0 to MyQueue.count-1 do
 begin
   MyQueue.pop;//这里出队如何赋值给数组 ，谢谢 pop 返回是Pointer
 end;

end;

TQueue??队列赋值
[解决办法]
你arr1都没初始化
[解决办法]

这样嘛小伙
1,Push No Error
2,
for j:=0 to MyQueue.count-1 do 
begin   
MyQueue.pop;//这里出队如何赋值给数组 ，谢谢 pop 返回是Pointer  
end;  
改成
for j:=0 to MyQueue.count-1 do 
begin   
Arr2[j]:=Byte(MyQueue.pop^);//强制指针转换  
end; 
over

查看更多 下一篇