学习 TList 类的实现[7]

【学习 TList 类的实现[7]】的更多相关文章

学习 TList 类的实现[4]

现在准备一步步地模拟 TList 类, 建立一个自己的 TMyList. 首先, 这个类中应该包括前面提到的那个 Pointer 数组(TPointerList)的指针(PPointerList): TMyList = class(TObject) FList: PPointerList; end; 既然是一个列表, 应该有 Count 字段: TMyList = class(TObject) FList: PPointerList; FCount: Integer; end; TL…

学习 TList 类的实现[8]

现在准备建立 Items 数组属性; 在 public 区输入下面代码:property Items[Index: Integer]: Pointer; 执行 Shift+Ctrl+C 后的代码是: ... TMyList = class(TObject) private ... function GetItems(Index: Integer): Pointer; procedure SetItems(Index: Integer; const Value: P…

学习 TList 类的实现[1]

最近整理了一些函数列表, 算是一个宏观的安排; 等以后再碰到一些函数时就可以放置的更有次序一些. 我对函数与类的理解是: 函数是一个功能模块, 类是一个更强大的功能模块; Delphi 已经提供了很多的函数与类, 但很多时候我们却视而不见, 重新"刀耕火种". 曾记得网上有一个 Delphi 行家连续几年开发与升级一个"通配符"相关的函数, 终于有一天他说: 原来 Delphi 有这个函数.也见过有人大骂 Delphi 连哈希表都没有, 其实只有他不知道而已.我自己…

学习 TList 类的实现[2]

我原来以为 TList 可能是一个链表, 其实只是一个数组而已. 你知道它包含着多大一个数组吗? MaxListSize 个!MaxListSize 是 Delphi 在 Classes 单元定义的一个常量:MaxListSize = Maxint div 16; 也就是 134217727; 这也是 TList 的最大容量.其中的 Maxint(2147483647) 也就是 2个G, 这是 Win32 系统许可一个应用程序对空间的最大操控权; 16 是一个 TList 的大小. 可以测试一下…

学习 TList 类的实现[6]

实现 TMyList.Add 函数. TList 中的 Add 函数用到了一个 Grow 方法, 它的原理是元素越多就为以后准备更多内存, 我们这里省略为预留 4 个元素的内存; TList 中的 Add 函数还同时触动了一个 Notify 方法, 这应该是为它们的子类准备的(估计是用它来激发一个事件的), 也不要了. function TMyList.Add(Item: Pointer): Integer; begin {如果预申请的内存用完了, 再申请够 4 个元素用的} ); …

学习 TList 类的实现[5]

先来实现 TMyList.SetCapacity. 马上会想到下面代码: procedure TMyList.SetCapacity(const Value: Integer); begin if FCapacity <> Value then FCapacity := Value; end; 但这样是远远不够的, 关键是需要分配内存, 像这样: ReallocMem(数组的起点指针, 元素个数*元素大小); 数组的起点指针即是 FList; 元素个数就是 SetCapacity…

学习 TList 类的实现[3] - 不能回避的话题: 内存分配

在 Delphi 中, 几乎所有的类型都有对应的指针类型, 譬如: Char PChar Word PWORD Double PDouble TPoint PPoint 甚至一种类型对应这着几种指针类型, 譬如: Integer PInteger PINT WideChar PWideChar PWChar 即使它没有定义, 我也可以直接使用一个类型的指针, 譬如声明一个整数的指针变量: var px: ^Integer; 也可以先自定义指针类型, 再使用, 譬如: type MyIntPoin…