详测 Generics Collections TQueue (3): OnNotify、Extract

为什么80%的码农都做不了架构师？>>>

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Generics.Collections;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);privateprocedure MyQueueNotify(Sender: TObject; const Item: Integer;Action: TCollectionNotification);end;varForm1: TForm1;implementation{$R *.dfm}//uses Generics.Collections;{准备给 TQueue.OnNotify 调用的事件过程}
procedure TForm1.MyQueueNotify(Sender: TObject; const Item: Integer;Action: TCollectionNotification);
begincase Action ofcnAdded     : ShowMessageFmt('Add: %d', [Item]);cnRemoved   : ShowMessageFmt('Remove: %d', [Item]);cnExtracted : ShowMessageFmt('Extract: %d', [Item]);end;
end;procedure TForm1.Button1Click(Sender: TObject);
varQueue: TQueue<Integer>;
beginQueue := TQueue<Integer>.Create();Queue.OnNotify := MyQueueNotify;Queue.Enqueue(11); {Add: 11}Queue.Enqueue(22); {Add: 22}Queue.Enqueue(33); {Add: 33}Queue.Dequeue;     {Remove: 11}// Extract 和 Dequeue 功能一致, 区别只是在驱动 OnNotify 事件时传递的参数有区别, 没多大意义Queue.Extract;     {Extract: 22}//Queue.OnNotify := nil;Queue.Free;        {Remove: 33}
end;end.

转载于:https://my.oschina.net/hermer/blog/319810

详测 Generics Collections TQueue (3): OnNotify、Extract相关推荐

详测 Generics Collections TStack(1): Push、Pop、Peek - 其他功能同 TQueue
为什么80%的码农都做不了架构师?>>> unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Clas ...
三十、详测 Generics Collections: TObjectList、TObjectQueue、TObjectStack
TObjectList<T>.TObjectQueue<T>.TObjectStack<T> 分别继承自: TList<T>.TQueue<T&g ...
详测 Generics Collections TList (6): Reverse、TrimExcess
为什么80%的码农都做不了架构师?>>> unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Clas ...
Delphi 2009 泛型容器单元(Generics.Collections)[1]: TListT
Delphi 2009 新增了泛型容器单元: Generics.Collections, 同时还有一个 Generics.Defaults 单元做支持. Generics.Collections 包含 ...
四、Delphi 2009 泛型容器单元(Generics.Collections)[3]: TStackT
TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TStack 主要有三个方法.一个属性: Push(压栈).Pop(出栈).Peek(查看下一 ...
MyBatis-Plus 快速开始及详测 SpringBoot 集成Mybatis-Plus
MyBatis-Plus 快速开始及详测简介 MyBatis-Plus (opens new window)(简称 MP)是一个 MyBatis (opens new window)的增强工具,在 ...
java sort 第二个参数_详解java Collections.sort的两种用法
Collections是一个工具类,sort是其中的静态方法,是用来对List类型进行排序的,它有两种参数形式: public static > void sort(List list) { l ...
泛型TListT Generics.Collections单元
网上关于Generics.Collections单元的TList<T>没有说清楚.不理解的话,在这里看吧. T --泛指各种类型.那么是不是可以在这里声明为--支持的各种类型? 答案:是! ...
玛塔机器人函数_USA Today旗下专家详测！玛塔机器人到底靠什么打动了歪果仁？...
原标题:USA Today旗下专家详测!玛塔机器人到底靠什么打动了歪果仁? 编者按:本文由USA Today旗下Reviewed评测网站的资深专家Julia MacDougall撰写,是一篇对Mata ...

详测 Generics Collections TQueue (3): OnNotify、Extract

详测 Generics Collections TQueue (3): OnNotify、Extract相关推荐

最新文章

热门文章