如何操作集合.Tque 顺序.

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是私有的，所以我无法访问它：

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

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

更新：拥有 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)拿第一件。

Answer 2

如果您希望为不同的项目分配不同的优先级，那么一种常见的方法是实现两个队列。一个用于高优先级项目，一个用于其余项目。在考虑其他项目之前，先用尽高优先级项目。

可以枚举TQueue<T>的项目。因此，您可以为派生类 TObjectQueue<T> 这样做。TQueue<T>类提供了一个枚举器，因此您可以像这样编写代码：

DebugMsg('Contents of Tx-Queue:');
for item in tx_queue do
  DebugMsg(item);