学习 TList 类的实现[6]
TList 中的 Add 函数用到了一个 Grow 方法, 它的原理是元素越多就为以后准备更多内存, 我们这里省略为预留 4 个元素的内存;
TList 中的 Add 函数还同时触动了一个 Notify 方法, 这应该是为它们的子类准备的(估计是用它来激发一个事件的), 也不要了.
function TMyList.Add(Item: Pointer): Integer;
begin
{如果预申请的内存用完了, 再申请够 4 个元素用的}
if FCount = FCapacity then SetCapacity(FCapacity + ); {Add 是添加在最后面, 把指针赋予数组}
FList^[FCount] := Item; {函数返回}
Result := FCount; {元素总数 + 1}
Inc(FCount);
end;
再实现 TMyList.Delete 过程.
同前, 把错误处理也简化成一个异常; 也省略了对 Notify 方法的触动.
其中用到了 System.Move, 可以参考: http://www.cnblogs.com/del/archive/2008/03/27/1126226.html
这里有一个问题是需要高度注意的: TList 在删除一个元素(它的元素就是指针)时, 并没有释放指针指向的对象, 只是从列表开除;
如果要同时 Free 掉对象, 应该使用 Contnrs 单元下的 TObjectList 类.
procedure TMyList.Delete(Index: Integer);
begin
{如果给的 Index 不符合要求, 就抛出异常}
if (Index < ) or (Index >= FCount) then
raise Exception.CreateFmt('非法的 Index:%d', [Index]); {删除的过程就是把当前元素后面的所有元素向前挪动一个位置}
if Index < FCount then
System.Move(FList^[Index + ], FList^[Index], (FCount - Index) * SizeOf(Pointer)); {总数 - 1}
Dec(FCount);
end;
还要实现 TMyList.SetCount 方法.
之前我没有想到 Count 属性还是可写的; 这可够狠的, 譬如已经有 100 个元素, 如果让 Count := 1; 这一下就要删除后面 99 个元素!
还有不理解的是: 譬如已经有 100 个元素, 如果让 Count := 200; 那后面的 100 个元素即便是填充了空字符, 用指针读过来也不是对象啊? 觉得不妥. 不过暂时也这样了.
procedure TMyList.SetCount(const Value: Integer);
var
i: Integer;
begin
{如果参数非法, 抛出异常}
if (Value < ) or (Value > MaxListSize) then
raise Exception.CreateFmt('非法数据:%d', [Value]); {如果预留内存不够, 马上申请}
if Value > FCapacity then SetCapacity(Value); {如果参数大于元素总数没有赋值的用空字符填充}
{如果参数小于元素总数, 删除多余的元素 }
if Value > FCount then
FillChar(FList^[FCount], (Value - FCount) * SizeOf(Pointer), )
else
for i := FCount - downto Value do
Delete(I); {新的元素总数}
FCount := Value;
end;
还有一个 TMyList.Clear 方法.
因为不用考虑列表中对象释放的问题, 这个就简单多了.
procedure TMyList.Clear;
begin
SetCount();
SetCapacity();
end;
至此, 已经声明的方法都实现了, 这个 TMyList 类也该能凑合使用了.
源码如下:
unit MyList; interface uses SysUtils; const
MaxListSize = Maxint div ; type
PPointerList = ^TPointerList;
TPointerList = array[..MaxListSize - ] of Pointer; TMyList = class(TObject)
private
FList: PPointerList;
FCount: Integer;
FCapacity: Integer;
procedure SetCapacity(const Value: Integer);
procedure SetCount(const Value: Integer);
public
destructor Destroy; override;
function Add(Item: Pointer): Integer;
procedure Clear;
procedure Delete(Index: Integer);
property Capacity: Integer read FCapacity write SetCapacity;
property Count: Integer read FCount write SetCount;
property List: PPointerList read FList;
end; implementation { TMyList } function TMyList.Add(Item: Pointer): Integer;
begin
if FCount = FCapacity then SetCapacity(FCapacity + );
FList^[FCount] := Item;
Result := FCount;
Inc(FCount);
end; procedure TMyList.Clear;
begin
SetCount();
SetCapacity();
end; procedure TMyList.Delete(Index: Integer);
begin
if (Index < ) or (Index >= FCount) then
raise Exception.CreateFmt('非法的 Index:%d', [Index]); if Index < FCount then
System.Move(FList^[Index+], FList^[Index], (FCount-Index)* SizeOf(Pointer)); Dec(FCount);
end; destructor TMyList.Destroy;
begin
Clear;
inherited;
end; procedure TMyList.SetCapacity(const Value: Integer);
begin
if (Value < FCount) or (Value > MaxListSize) then
raise Exception.CreateFmt('非法数据:%d', [Value]); if FCapacity <> Value then
begin
ReallocMem(FList, Value * SizeOf(Pointer));
FCapacity := Value;
end;
end; procedure TMyList.SetCount(const Value: Integer);
var
i: Integer;
begin
if (Value < ) or (Value > MaxListSize) then
raise Exception.CreateFmt('非法数据:%d', [Value]); if Value > FCapacity then SetCapacity(Value); if Value > FCount then
FillChar(FList^[FCount], (Value - FCount) * SizeOf(Pointer), )
else
for i := FCount - downto Value do
Delete(I); FCount := Value;
end; end.
学习 TList 类的实现[6]的更多相关文章
- 学习 TList 类的实现[4]
现在准备一步步地模拟 TList 类, 建立一个自己的 TMyList. 首先, 这个类中应该包括前面提到的那个 Pointer 数组(TPointerList)的指针(PPointerList): ...
- 学习 TList 类的实现[8]
现在准备建立 Items 数组属性; 在 public 区输入下面代码:property Items[Index: Integer]: Pointer; 执行 Shift+Ctrl+C 后的代码是: ...
- 学习 TList 类的实现[1]
最近整理了一些函数列表, 算是一个宏观的安排; 等以后再碰到一些函数时就可以放置的更有次序一些. 我对函数与类的理解是: 函数是一个功能模块, 类是一个更强大的功能模块; Delphi 已经提供了很多 ...
- 学习 TList 类的实现[2]
我原来以为 TList 可能是一个链表, 其实只是一个数组而已. 你知道它包含着多大一个数组吗? MaxListSize 个!MaxListSize 是 Delphi 在 Classes 单元定义的一 ...
- 学习 TList 类的实现[5]
先来实现 TMyList.SetCapacity. 马上会想到下面代码: procedure TMyList.SetCapacity(const Value: Integer); begin if ...
- 学习 TList 类的实现[3] - 不能回避的话题: 内存分配
在 Delphi 中, 几乎所有的类型都有对应的指针类型, 譬如: Char PChar Word PWORD Double PDouble TPoint PPoint 甚至一种类型对应这着几种指针类 ...
- 学习 TList 类的实现[7]
总结目前 TMyList 已具备的功能(3 个方法.3 个属性): Add: 添加; Delete: 删除; Clear: 清空;Count: 元素总数;Capacity: 已存在的所有元素位置数;L ...
- Java虚拟机JVM学习07 类的卸载机制
Java虚拟机JVM学习07 类的卸载机制 类的生命周期 当Sample类被加载.连接和初始化后,它的生命周期就开始了. 当代表Sample类的Class对象不再被引用,即不可触及时,Class对象就 ...
- Java虚拟机JVM学习04 类的初始化
Java虚拟机JVM学习04 类的初始化 类的初始化 在初始化阶段,Java虚拟机执行类的初始化语句,为类的静态变量赋予初始值. 在程序中,静态变量的初始化有两种途径: 1.在静态变量的声明处进行初始 ...
随机推荐
- linux批量备份服务器配置文件和目录的脚本
这篇文章主要介绍了linux下批量备份服务器配置文件和目录的方法,需要的朋友可以参考下 功能:1. 只在备份机执行,远程的服务器只需要允许备份机用root通过密钥登录:2. 在备份机上配置需要备份哪些 ...
- android即时消息处理机制
在android端做即时消息的时候.遇到的坑点是怎么保证消息即时性,又不耗电.为什么这么说呢? 原因是假设要保证消息即时性.通常有两种机制pull或者push. pull定时轮询机制,比較浪 ...
- zabbix 源
http://repo.zabbix.com/ # cat /etc/yum.repos.d/zabbix.repo [zabbix] name=Zabbix Official Repository ...
- MySQL PLSQL Demo - 003.静态游标
drop procedure if exists p_hello_world; create procedure p_hello_world() begin declare id integer; ) ...
- 六、从length和length()方法开始
首先你可以快速回答下面问题吗.当没有任何IDE的情况下,如何得到一个数组的长度,如何得到一个String的长度.我问这个了很对不同水平的开发者:初级的中级的.他们不能快速正确的回答这个问题.当IDE提 ...
- . net 源代码调试
对于 .net framework 中的代码,光拿 Reflector 看是不够过瘾的,如果能够调试进去就好了! 其实,微软是提供了一套 sourcecode 的下载的: http://referen ...
- SVN开启端口监听,并设置开机启动
svnserve -d -r /home/svn/repo --listen-port=3690,svn仓库地址,及监听端口 vi svn_startup.sh,位置在/root下面编辑一个启动脚本, ...
- JS中split用法和数组中元素的删除
JS中split用法 <script language="javascript"> function spli(){ datastr="2,2,3,5,6,6 ...
- Makefile学习之路——4
变量的类别有递归扩展变量和简单扩展变量.只用一个“=”符号定义的变量被称为递归扩展变量.通过下面例子观察递归扩展变量的特点. .PHONY: all foo=$(bar) bar=$(ugh) ugh ...
- 全屏API接口
HTML5的诞生给我们提供了很多精彩的JavaScript和HTML新功能和新特征.有些新特征我们已知多年并大量的使用,而另外一些主要是用在前沿的手机移动技术上,或者桌面应用中起辅助作用.不管这些HT ...