delphi tqueue

Delphi TQueue 是一个泛型队列类，它位于 System.Generics.Collections 单元中。它提供了一个先进先出（FIFO）的数据结构，允许在队列的一端添加元素，从另一端移除元素。该类有以下几个常用方法：

1. Enqueue：将一个元素添加到队列的末尾。
2. Dequeue：从队列的开头移除并返回一个元素。
3. Peek：返回队列的开头元素，但不移除它。
4. Count：获取队列中元素的数量。

以下是一个简单的示例，展示了如何使用 TQueue 来实现一个简单的任务队列：

var
  TaskQueue: TQueue<TTask>;
  Task: TTask;
begin
  TaskQueue := TQueue<TTask>.Create;
  try
    // 添加任务到队列
    TaskQueue.Enqueue(TTask.Create('Task 1'));
    TaskQueue.Enqueue(TTask.Create('Task 2'));
    TaskQueue.Enqueue(TTask.Create('Task 3'));

    // 处理任务队列
    while TaskQueue.Count > 0 do
    begin
      // 从队列中取出任务
      Task := TaskQueue.Dequeue;

      // 执行任务
      Task.Execute;

      // 释放任务对象
      Task.Free;
    end;
  finally
    TaskQueue.Free;
  end;
end;

在这个示例中，我们创建了一个 TQueue<TTask> 对象，其中 TTask 是一个自定义任务类。我们使用 Enqueue 方法将一些任务添加到队列中，并使用 Dequeue 方法逐个处理它们。注意，在处理完每个任务后，我们需要释放它的内存，以避免内存泄漏。