Delphi2009初体验 - 语言篇 - 体验泛型（一）

快速导航：

一、 概述

二、 体验TList<T>

三、 体验TObjectList<T>

四、 TList<T>和TObjectList<T>的区别

五、 后记

一、概述

等了几百年， Delphi 终于原生的支持泛型了。以前使用 Delphi ，泛型是不被支持的，但是可以用一些第三方库来实现间接的泛型容器支持。如 HouSisong 大虾编制的 DGL 泛型库，只需要创建几个简单的“头”文件，就可以拥有指定类型的容器集合类。 DGL 泛型库非常类似于 STL 泛型库，很容易上手，如果大家想知道具体使用方法，我另外开文章说明。

Delphi2009 提供了几个好用的泛型容器，如 TList<T> 、 TQueue<T> 、 TStack<T> 、 TDictionary<TKey, TValue> ，还有针对于对象使用的 TObjectList<T> 等几个类。此外，还提供了 TArray 数组辅助静态类，封装了数组（ array of T ）的几个常用操作，如排序等。

但是在智能感知的时候， TList<T> 等泛型集合提示好像有些 BUG ：

图 1

为什么是“ [] ”，而不是“ () ”？

下面针对TList和TObjectList及两者的区别对Delphi2009的泛型功能进行初步体验。

二、体验TList<T>

在此，我将使用以前版本的指针集合类TList与TList<T>作对比，保存一组整形数据。使用控制台的方式进行程序编写。

<!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> --> 1 program TestTList;
2
3 { $APPTYPECONSOLE }
4
5 uses
6 SysUtils,
7 Classes,
8 Generics.Collections; // 泛型集合命名空间，太优美了！
9
10 var
11 intList:TList < Integer > ;
12 oldList:TList;
13 n,elem:Integer;
14 pTmp:Pointer;
15 begin
16 // 以下代码测试旧的集合对象
17 oldList: = TList.Create;
18 oldList.Add(Pointer( 1 ));
19 oldList.Add(Pointer( 2 ));
20 oldList.Add(Pointer( 3 ));
21
22 Writeln( ' TListstart ' );
23
24 for n: = 0 to oldList.Count - 1 do
25 begin
26 Writeln(Integer(oldList[n]));
27 end ;
28
29 for pTmp in oldList do
30 begin
31 Writeln(Integer(pTmp));
32 end ;
33
34 FreeAndNil(oldList);
35
36 // 以下代码测试整形泛型集合对象
37 intList: = TList < Integer > .Create;
38 intList.Add( 1 );
39 intList.Add( 2 );
40 intList.Add( 3 );
41
42 Writeln(# 13 + # 10 + ' TList<T>start ' );
43
44 for n: = 0 to intList.Count - 1 do
45 begin
46 Writeln(intList[n]);
47 end ;
48
49 for elem in intList do
50 begin
51 Writeln(elem);
52 end ;
53
54 FreeAndNil(intList);
55
56 // ----------------------------------------------------------
57 Writeln( ' pressanykey ' );
58 Readln;
59 end .

运行结果：

图2

三、体验TObjectList<T>

刚开始看到TObjectList的时候我有点不解，既然是泛型，那么T就不区分值类型和引用类型，为什么还会多出来一个TObjectList< T>呢？在阅读了Generic.Collections的源码和经过试验后，我终于明白了原因，待我来慢慢分析。

同样，我将使用Contnrs命名空间下的TObjectList和TObjectList<T>做对比，使用控制台程序进行程序的编写。

首先创建一个类，该类在创建时，对象将打印“创建 ” + 对象的索引号，销毁时打印“销毁 ” + 对象的索引号：

1 unit Felix;
2
3 interface
4
5 uses
6 SysUtils;
7
8 type
9 TFelix = class
10 private
11 fId:Integer;
12 public
13 constructor Create; virtual ;
14 destructor Destroy; override ;
15 property Id:Integer read fId write fId;
16 end ;
17
18 var
19 gCount:Integer;
20
21 implementation
22
23 { TFelix }
24
25 constructor TFelix.Create;
26 begin
27 fId: = gCount;
28 Writeln( ' ConstructorFelix ' + IntToStr(fId));
29 Inc(gCount);
30 end ;
31
32 destructor TFelix.Destroy;
33 begin
34 Writeln( ' DestructorFelix ' + IntToStr(fId));
35
36 inherited ;
37 end ;
38
39 end .
40

控制台程序代码：

<!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> --> 1 program TestTObjectList;
2
3 { $APPTYPECONSOLE }
4
5 uses
6 SysUtils,
7 Contnrs,
8 Generics.Collections,
9 Felix in ' Felix.pas ' ;
10
11 var
12 objList:TObjectList < TFelix > ;
13 oldObjList:TObjectList;
14 n:Integer;
15 felix:TFelix;
16 pFelix:Pointer;
17 begin
18 // 以下代码测试旧对象集合
19 Writeln( ' TObjectListstart ' );
20
21 oldObjList: = TObjectList.Create; // 1 *
22 for n: = 0 to 2 do
23 begin
24 oldObjList.Add(TFelix.Create);
25 end ;
26
27 for pFelix in oldObjList do
28 begin
29 Writeln(TFelix(pFelix).Id);
30 end ;
31
32 FreeAndNil(oldObjList);
33
34 // 以下代码测试泛型对象集合
35 Writeln(# 13 + # 10 + ' TObjectList<T>start ' );
36
37 objList: = TObjectList < TFelix > .Create; // 2 *
38 for n: = 0 to 2 do
39 begin
40 objList.Add(TFelix.Create);
41 end ;
42
43 for felix in objList do
44 begin
45 Writeln(felix.Id);
46 end ;
47
48 FreeAndNil(objList);
49
50 // ----------------------------------------------------------
51 Writeln( ' pressanykey ' );
52 Readln;
53 end .

图3

如果我们将代码中的第1*处修改成：

oldObjList := TObjectList.Create(False);

将产生如下结果：

图4

相对于TObjectList<T>，没有Create(AOwnsObjects: Boolean)方式的重载，我们如何才能让TObjectList<T>“不拥有”对象，当TObjectList<T>中的 元素重新赋值、TObjectList<T>集合对象销毁的时候，怎样能保证里面的旧元素不进行销毁操作呢？答案是：不能。

四：TList<T>和TObjectList<T>的区别

如果将上面代码的objList对象声明时改成TList<TFelix>类型，并将第2*处代码改成objList := TList<TFelix>.Create;结果就和使用TObjectList（图4）的效果一样了，当调用方法SetItem或者集合被 销毁后，旧元素或者内部的元素不会被销毁。

原因在于，TObjectList<T>从TList<T>继承而来，只重写了Notify方法，此方法在集合内元素改变（指针变换、删除、添加）等操作时调用。

请阅读Generics.Collections.pas文件第1236行，TObjectList<T>重写了Notify方法后，先调用了超类的Notify方法，然后判断操作如果为cnRemoved则将元素.Free，所以元素在此处被析构。

五：后记

Delphi2009初体验 - 语言篇 - 体验泛型（一）