详测 Generics Collections TQueue (1): Enqueue、Dequeue、Peek
2009-10-11 14:21
330 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Generics.Collections; procedure TForm1.Button1Click(Sender: TObject); var Queue: TQueue<string>; s,str: string; begin Queue := TQueue<string>.Create(); {入列} Queue.Enqueue('AAA'); Queue.Enqueue('BBB'); Queue.Enqueue('CCC'); Queue.Enqueue('DDD'); {查看} str := ''; for s in Queue do str := str + s + ' '; ShowMessage(str); {AAA BBB CCC DDD} {出列, 并查看出列元素} ShowMessage(Queue.Dequeue); {AAA} str := ''; for s in Queue do str := str + s + ' '; ShowMessage(str); {BBB CCC DDD} {查看下一个将要出列的是...} ShowMessage(Queue.Peek); {BBB} Queue.Free; end; end.
相关文章推荐
- 二十一、详测 Generics Collections TQueue (1): Enqueue、Dequeue、Peek
- 三、Delphi 2009 泛型容器单元(Generics.Collections)[2]: TQueue<T>
- 二十二、详测 Generics Collections TQueue (2): Create、Count、Clear、TrimExcess
- 二十三、详测 Generics Collections TQueue (3): OnNotify、Extract
- cs_EmailQueue_Failure///cs_Emails_Dequeue///cs_Emails_Enqueue
- 详测 Generics Collections TQueue (2): Create、Count、Clear、TrimExcess
- 二十四、详测 Generics Collections TStack(1): Push、Pop、Peek - 其他功能同 TQueue
- 详测 Generics Collections TQueue (3): OnNotify、Extract
- 详测 Generics Collections TStack(1): Push、Pop、Peek - 其他功能同 TQueue
- Delphi 2009 泛型容器单元(Generics.Collections)[2]: TQueue<T>
- 泛型容器单元(Generics.Collections)[2]: TQueue<T> 队列列表
- jquery 的动画列表、jquery的queue、dequeue用法
- Java -- 容器使用 Set, List, Map, Queue, Collections
- Queue中offer&add与poll&remove与peek&element的区别
- [转]《Java Generics and Collections》读书笔记三:协变式覆盖与泛型重载
- jQuery中queue和dequeue的用法 (juery 队列)
- C#数据结构和算法[An Introduction to Collections, Generics, and the Timing Class]
- Delphi 2009 泛型容器单元(Generics.Collections)[3]: TStack<T>
- 详测 Generics Collections TList (8): Sort
- 详测 Generics Collections TDictionary(2): ContainsKey、ContainsValue、AddOrSetValue、TryGetValue