泛型队列

新版本DELPHI增加的泛型语法带来的是编写代码的异常方便。

uses System.Generics.Collections;

// 创建队列
FPrintQueue := TQueue<TOneTimePrint>.Create;
end;

// 出队：从队列中获取一个任务
OneTimePrint := FPrintQueue.Dequeue;

// 入队：往队列中增加一个任务

FPrintQueue.Enqueue(OneTimePrint)

如果从队列中获取一个任务后执行失败，可以将这一个任务重新入队，排在队尾，后面将获重新执行的机会。