求助：TQueue问题

Question

需要把数组赋值给队列，然后再出队赋值给数组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  队列赋值

Answer 1

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

Answer 2

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

Answer 3

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