泛型在C++, C#中已有广泛应用,Delphi自2009版本也引入泛型,典型的应用如TList,TDictionary。如果你熟悉C#,其用法十分类似。
比如以前Delphi没有integer list,用泛型,我们可以这样声明:
var list: TList; begin list := TList .Create; list.Add(1); list.Add(2); list.Add(3); list.Items[2] := 8; list.Free; end;
TDictionary类是一个name,value容器,内部是哈希索引,所以对于数据查找非常高效,如下面的代码:
var Dict: TDictionary; begin Dict := TDictionary .Create; Dict.Add('key1', 'value1'); Dict.Add('key2', 'value2'); if not Dict.ContainsKey('key3') then Dict.Add('key3','value3'); Dict.Free; end;
因为Object Pascal没有垃圾收集,所以对应的每种泛型类都有一个对应引用类型实现,比如TObjectList,TObjectDictionary,这些类实现中, 当删除元素时会自动帮你释放对象。
上面的TList和TDictionary在Generics.Collections单元,有兴趣可以研究一下代码。除了已有的泛型类之外,你可以编写自己的泛型类,感兴趣的朋友可以google相关文章。