快速导航:
一、概述
二、体验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:
![Delphi2009初体验 - 语言篇 - 体验泛型(一)](http://img.e-com-net.com/image/product/1c3c1512c3db4723b515117f6cff6eb5.gif)
图1
为什么是“[]”,而不是“()”?
下面针对TList和TObjectList及两者的区别对Delphi2009的泛型功能进行初步体验。
二、体验TList<T>
在此,我将使用以前版本的指针集合类TList与TList<T>作对比,保存一组整形数据。使用控制台的方式进行程序编写。
运行结果:
![Delphi2009初体验 - 语言篇 - 体验泛型(一)](http://img.e-com-net.com/image/product/e138af0f045c4830a62484184010319a.png)
图2
三、体验TObjectList<T>
刚开始看到TObjectList的时候我有点不解,既然是泛型,那么T就不区分值类型和引用类型,为什么还会多出来一个TObjectList< T>呢?在阅读了Generic.Collections的源码和经过试验后,我终于明白了原因,待我来慢慢分析。
同样,我将使用Contnrs命名空间下的TObjectList和TObjectList<T>做对比,使用控制台程序进行程序的编写。
首先创建一个类,该类在创建时,对象将打印“创建 ” + 对象的索引号,销毁时打印“销毁 ” + 对象的索引号:
1unitFelix;
2
3interface
4
5uses
6SysUtils;
7
8type
9TFelix=class
10private
11fId:Integer;
12public
13constructorCreate;virtual;
14destructorDestroy;override;
15propertyId:IntegerreadfIdwritefId;
16end;
17
18var
19gCount:Integer;
20
21implementation
22
23{TFelix}
24
25constructorTFelix.Create;
26begin
27fId:=gCount;
28Writeln('ConstructorFelix'+IntToStr(fId));
29Inc(gCount);
30end;
31
32destructorTFelix.Destroy;
33begin
34Writeln('DestructorFelix'+IntToStr(fId));
35
36inherited;
37end;
38
39end.
40
<!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> -->
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
.
控制台程序代码:
![Delphi2009初体验 - 语言篇 - 体验泛型(一)](http://img.e-com-net.com/image/product/4a638d08973e49ceb1bcf09b2e3e61f6.gif)
图3
如果我们将代码中的第1*处修改成:
oldObjList := TObjectList.Create(False);
将产生如下结果:
![Delphi2009初体验 - 语言篇 - 体验泛型(一)](http://img.e-com-net.com/image/product/e0ba4b9e0a4d45aa9e162bd795f47ddf.gif)
图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,所以元素在此处被析构。
五:后记
使用TObjectList<T>会将对象自动销毁,使用TList<T>不会将对象自动销毁。
受Symbian编程的影响,我习惯于对象自己创建、对象自己销毁,特别是在使用对象集合类,有时候一个对象可能在这个集合内,同时又在另外一个集合内。 如果TObjectList<T>把对象销毁了,在另外一个集合内使用对象会造成不可预料的后果,所以建议大家不要使用 TObjectList<T>。
其他几个泛型类TDictionary<>等,方法和代码都和.net的类似,看了看代码,真是让人遐想连篇,此处不再介绍。