[学习官方例子]TQueue

没什么功能，简单敲一下：

代码如下：

program TQueueTest;

{$APPTYPE CONSOLE}

uses
  SysUtils, Generics.Collections, Forms;

var
  Queue: TQueue<String>;

begin
  Queue := TQueue<String>.Create();
  Queue.Enqueue('John');
  Queue.Enqueue('Mary');
  Queue.Enqueue('Bob');
  Queue.Enqueue('Anna');
  Queue.Enqueue('Erica');

  writeln('First enqueued element is: "' + Queue.Peek + '".');
  Queue.Extract();
  Queue.TrimExcess();

  writeln('The queue contains ' + IntToStr(Queue.Count) + ' elements.');

  writeln('First enqueued element is: "' + Queue.Dequeue() + '".');
  Queue.Clear();
  Queue.Free;

  readln;

end.

效果图：

不知道怎么在控制台可以把Queue.OnNotify事件关联起来。

转载于:https://www.cnblogs.com/wouldguan/archive/2011/10/14/2211051.html