文档章节

详测 Generics Collections TList (10): OnNotify 事件

涂孟超
 涂孟超
发布于 2014/09/26 15:30
字数 142
阅读 2
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Generics.Collections;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure MyListNotify(Sender: TObject; const Item: string;
      Action: TCollectionNotification);
  end;
 
var
  Form1: TForm1;

implementation

{$R *.dfm}

{准备给 List.OnNotify 调用的事件过程}
procedure TForm1.MyListNotify(Sender: TObject; const Item: string; 
  Action: TCollectionNotification);
begin
  case Action of
    cnAdded     : ShowMessageFmt('Add: %s', [Item]);
    cnRemoved   : ShowMessageFmt('Remove: %s', [Item]);
    cnExtracted : ShowMessageFmt('Extract: %s', [Item]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TList<string>;
begin
  List := TList<string>.Create();
  List.OnNotify := MyListNotify; {关联事件过程}

  List.AddRange(['A', 'B', 'C']); {Add: A | Add: B | Add: C }

  List.Delete(0);    {Remove: A}
  List.Remove('B');  {Remove: B}
  List.Extract('C'); {Extract: C}

  List.OnNotify := nil;    
  List.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/10/11/1580729.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Delphi 2010 中的泛型

Delphi 2010 中的泛型日期:2010年5月31日 作者: 人气:10504 查看:[大字体 中字体 小字体]2010已发布很长时间了,口碑还不错,准备用它开发下一项目,但对泛型等新东西的认识还不够,就搜了...

vga
2016/08/09
55
0
DuiLib消息处理剖析

文章来源:http://blog.csdn.net/zhuhongshu/article/details/41725657 分为几个大部分: 控件 容器(本质也是控件) UI构建解析器(XML解析) 窗体管理器(消息循环,消息映射,消息处理,窗...

analogous_love
2017/07/23
0
0
GBin1推荐教程之Java泛类型(Generics)快速入门

发布时间: 2011-9-20 来源:javacodegeeks.com 翻译: gbin1.com 泛类型(Generics)是Java SE5.0里的特性,在发布后的几年里,我相信每个java开发者都不仅仅听说过,而且实实在在的使用过。...

gbin1
2011/09/21
192
0
Apache Maven 3.0.3 Released

相比较 Maven 3.0.2 版本,3.0.3 改进主要包括: * [MNG-3575] - Allow hexadecimal parameters * [MNG-4971] - Display maven home in version info * [MNG-4984] - Simplify drop in of 3......

红薯
2011/03/05
1K
0
MySQL分库分表备份脚本

vim /data/mysqlback.sh 执行脚本后可以看到对数据库进行了分库分表的操作 执行脚本提示警告: -- Warning: Skipping the data of table mysql.event. Specify the --events option explicit...

M四月天
2017/01/11
0
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
10
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
8
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部