分享
 
 
 

在Delphi中实现类型安全的容器,Delphi泛型库DGL引介(提供源码下载)

王朝delphi·作者佚名  2007-01-29
窄屏简体版  字體: |||超大  

在Delphi中实现类型安全的容器

Delphi泛型库--DGL(The Delphi Generic Library)简介

by HouSisong@263.net,2004.09.12

DGL库下载 安装方法:将库解压到一个目录,然后在Delphi中添加搜索路径

最近都在使用Delphi,但Delphi中的容器和算法实在太缺乏了,又存在很多不一致,使用也很不方便。

在构造一些容器和算法的时候,总是怀念C++的泛型和STL;所以就尝试在Delphi中编写泛型代码;

其它现有的Deplhi容器和算法库实现中,主要的实现途径有利用Delphi中的array of const(相当于弱类型,而且对结构的支持差,如Decal);或者建立一套类体系作为容器中的元素(主要使用虚函数机制,如:左轻侯有篇文章也谈到过; 一般简单类型需要做打包拆包);还有的实现是针对TObject、IInterface、String等做多套代码实现(如:DCL库); 但他们相对于C++的STL来说缺陷也很明显,类型不安全,速度慢,代码重复;

DGL库没有这些问题,库能够支持所有基本类型、指针(包括类的指针)、Interface、结构(record)、Object结构(Delphi中已经不推荐使用)、类成员函数指针、类(class)的值语义(一般Delphi中不习惯使用类的值语义,所以不建议使用)等其它用户自定义类型,并且类型安全(速度当然没有问题啦), 没有重复代码!

库现在包括以下组件:

<object>

_IIterator 容器迭代器

_IMapIterator Map迭代器

(PointerBox函数可以将原生指针包装成一个与库兼容的迭代器)

<接口interface>

_ICollection 容器接口

_ISerialContainer 序列容器的接口

_IVector 向量接口(容器的一种)

_IList 链表接口(容器的一种)

_IDeque 队列接口(容器的一种)

_IStack 堆栈接口(一种容器配接器)

_IQueue 双端队列接口(一种容器配接器)

_IPriorityQueue 优先级队列

_ISet Set接口

_IMultiSet MultiSet接口

_IMap Map接口

_IMultiMap MultiMap接口

<类class>

_TAlgorithms 算法类(包括:拷贝、替换、删除、排序、搜索等算法)

_TVector 向量实现类

_TList 链表List的一个实现

_TDeque 队列Deque的一个实现

_TStack 堆栈Stack

_TQueue 双端队列Queue

(_THashTableBase Hash表(库内部使用))

_THashSet 用Hash表实现的Set

_THashMultiSet 用Hash表实现的MultiSet

_THashMap 用Hash表实现的Map

_THashMultiMap 用Hash表实现的MultiMap

实现原型举例:

“模版”类的声明文件:UnitClassT.inc_h

[code]

//<template:_T,_T_IsEqual>

type

TTest = class(TObject)

private

a : _T;

public

function GetA():_T;

fucntion IsEqual(ATest:TTest):bool;

end;

[/code]

“模版”类的实现文件:UnitClassT.inc_pas

[code]

function TTest.GetA(): _T;

begin

result:=a;

end;

fucntion IsEqual(ATest:TTest):bool;

begin

result:=_T_IsEqual(a,ATest.a);

end;

[/code]

//////////////////////////////////////

使用的时候对“模版”类做pointer的特化

[code]

unit UnitTestPointer;

interface

type _T = Pointer;

function _T_IsEqual(cosnt a,b:_T);

{$I UnitClassT.inc_h}

type TTestPointer = TTest; // TTestPointer定义给外部使用

implementation

{$I UnitClassT.inc_pas}

function _T_IsEqual(cosnt a,b:_T);

begin

result:=(a=b);

end;

end.

[/code]

使用的时候对“模版”类做double的特化

[code]

unit UnitTestDouble;

interface

type _T = double;

{$I UnitClassT.inc_h}

type TTestFloat = TTest; // TTestFloat定义给外部使用

function _T_IsEqual(cosnt a,b:_T);

implementation

function _T_IsEqual(cosnt a,b:_T);

begin

result:=(a=b);

end;

{$I UnitClassT.inc_pas}

end.

[/code]

(将类分成两个部分的原因是这样可以$Include更多的文件,形成组合;感觉象C++ )

这里只对一个_T类型做了参数化,当然还可以对多个类型做特化;甚至参数化一些常量和其他函数(比如Hash值函数),利用$define\$ifdef进行条件编译(主要用来优化或特殊处理);用这种方法再加上接口(Interface,不是必须);在Delphi中就可以实现通用\高效\易用的容器和算法库了;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有