delphi - 如何操作Collections.TQueue顺序？

Question

我有一个队列，用于存储要传输的数据包:

TfrmFoo = class(TForm)
    public
        tx_queue: System.Generics.Collections.TObjectQueue<TPacket>;

有时我需要将具有最高优先级的数据包排队。我就是这样做的:

for i := 0 to tx_queue.Count do
    // Shift all queue items one space up the queue.
    tx_queue.FItems[tx_queue.Count - i + 1] :=
        tx_queue.FItems[tx_queue.Count - i];
// Add a packet to the--now vacant--top-most position.
tx_queue.FItems[0] := VipPacket;

不幸的是，FItems 是私有(private)的，所以我无权访问它:

E2361 Cannot access private symbol {System.Generics.Collections}TQueue<Comm.TPacket>.FItems

由于我仍然希望能够使用 stdlib 提供的所有功能，因此如何才能在不滚动自己的 FIFO 队列数据结构的情况下执行我所描述的操作？

更新:拥有 2 个队列是一个解决方案，但我的代码中还有另一个地方需要访问队列项，例如我在哪里打印队列:

DebugMsg('Contents of Tx-Queue:');
for i := 0 to (tx_queue.Count - 1) do
    DebugMsg(tx_queue.FItems[i]);

或者一个迭代队列并计算已排队的特定 ID 的数据包数量的函数。

Answer 1

队列并不意味着可以按照您想要的数据结构方式进行操作。使用TList反而。使用 Add 将内容放在后面，Insert 将内容放在前面，使用 ExtractItem(0) 获取第一个项目。