求助：TQueue问题

[new_yang]

需要把数组赋值给队列，然后再出队赋值给数组

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;

[new_yang]

MyQueue.pop 如何赋值给arr2

[hsfzxjy]

你arr1都没初始化

[new_yang]

引用 2 楼 HSFZXJY 的回复:

你arr1都没初始化

这个没关系 ，我只是捡了主要的来问，MyQueue 都没释放呢

[new_yang]

move

[new_yang]

不知道行不行？

[该用户很帅]

这样嘛小伙 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

[该用户很帅]

忘了告诉你 delphi自带队列效率很低

[new_yang]

谢谢楼上