文档章节

学习 TList 类的实现[4]

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 1038
阅读 4
收藏 0
现在准备一步步地模拟 TList 类, 建立一个自己的 TMyList.

首先, 这个类中应该包括前面提到的那个 Pointer 数组(TPointerList)的指针(PPointerList):
TMyList = class(TObject)
  FList: PPointerList;
end;

 
 
 
 
 

 

 

  
既然是一个列表, 应该有 Count 字段:
TMyList = class(TObject)
  FList: PPointerList;
  FCount: Integer;
end;

 
 
 
 
 

 

 

  
TList 类还有一个 FCapacity 字段.

譬如当前列表中有 10 个元素时, 其实列表已经提前申请出更多位置, 这样就不必每次添加每次申请内存, 从而提高了效率.

这个 FCapacity 字段就表示已申请的可放置元素位置的总数.
TMyList = class(TObject)
  FList: PPointerList;
  FCount: Integer;
  FCapacity: Integer;
end;

 
 
 
 
 

 

 

  
它们都应该是私有的:
TMyList = class(TObject)
private
  FList: PPointerList;
  FCount: Integer;
  FCapacity: Integer;
public
end;

 
 
 
 
 

 

 

  
应该用属性操作它们:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  end;
{--------------------------------}
  TMyList = class(TObject)
  private
    FList: PPointerList;
    FCount: Integer;
    FCapacity: Integer;
  public
    property Capacity: Integer; {光标放在属性上, 执行 Shift+Ctrl+C, 自动建立属性}
    property Count: Integer;
    property List: PPointerList;
  end;
{--------------------------------}

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

 
 
 
 
 

 

 

  
自动建立后的属性:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  end;
{--------------------------------}
  TMyList = class(TObject)
  private
    FList: PPointerList;
    FCount: Integer;
    FCapacity: Integer;
    procedure SetCapacity(const Value: Integer);
    procedure SetCount(const Value: Integer);
    procedure SetList(const Value: PPointerList);
  public
    property Capacity: Integer read FCapacity write SetCapacity;
    property Count: Integer read FCount write SetCount;
    property List: PPointerList read FList write SetList;
  end;
{--------------------------------}

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyList }

procedure TMyList.SetCapacity(const Value: Integer);
begin
  FCapacity := Value;
end;

procedure TMyList.SetCount(const Value: Integer);
begin
  FCount := Value;
end;

procedure TMyList.SetList(const Value: PPointerList);
begin
  FList := Value;
end;

end.

 
 
 
 
 

 

 

  
在 TList 中, SetCount 和 SetCapacity 方法都是放在 protected 区以供子类使用, 这里暂时不考虑继承的问题, 就让它们先在 private 区吧;

不过 List 属性应该是只读的, 它就是那个核心数组的指针, 对它的赋值应该通过更多其他的方法.

修改如下:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  end;
{--------------------------------}
  TMyList = class(TObject)
  private
    FList: PPointerList;
    FCount: Integer;
    FCapacity: Integer;
    procedure SetCapacity(const Value: Integer);
    procedure SetCount(const Value: Integer);
  public
    property Capacity: Integer read FCapacity write SetCapacity;
    property Count: Integer read FCount write SetCount;
    property List: PPointerList read FList;
  end;
{--------------------------------}

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyList }

procedure TMyList.SetCapacity(const Value: Integer);
begin
  FCapacity := Value;
end;

procedure TMyList.SetCount(const Value: Integer);
begin
  FCount := Value;
end;

end.

 
 
 
 
 

 

 

  
作为一个列表, 最起码应该有 Add、Delete、Clear 方法.

Add 方法的参数应该是一个指针(TList 就是存放指针的吗), 如果需要同时返回元素的位置, 应该定义成函数;

Delete 是删除指定位置上的元素, 参数是个位置号;

Clear 是清除列表, 对象释放(Destroy)时也应该执行此过程.

综上所述, 修改如下:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  end;
{--------------------------------}
  TMyList = class(TObject)
  private
    FList: PPointerList;
    FCount: Integer;
    FCapacity: Integer;
    procedure SetCapacity(const Value: Integer);
    procedure SetCount(const Value: Integer);
  public
    destructor Destroy; override;         {覆盖父类的 Destroy 方法}
    function Add(Item: Pointer): Integer;
    procedure Clear;                      {在 TList 中这是个虚方法, 以备子类覆盖}
    procedure Delete(Index: Integer);
    property Capacity: Integer read FCapacity write SetCapacity;
    property Count: Integer read FCount write SetCount;
    property List: PPointerList read FList;
  end;
{--------------------------------}

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyList }

function TMyList.Add(Item: Pointer): Integer;
begin

end;

procedure TMyList.Clear;
begin

end;

procedure TMyList.Delete(Index: Integer);
begin

end;

destructor TMyList.Destroy;
begin
  Clear;     {在类释放时同时清除列表}
  inherited; {在 TList 中没有这句, 大概是因为它的父类也没什么可继承的}
end;

procedure TMyList.SetCapacity(const Value: Integer);
begin
  FCapacity := Value;
end;

procedure TMyList.SetCount(const Value: Integer);
begin
  FCount := Value;
end;

end.

 
 
 
 
 

 

 

  
为了让代码更清晰, 还是把这个类相关的所有代码放到一个独立的单元吧(新建一个单元, 我们把它保存为: MyList.pas).

因为 MaxListSize、TPointerList、PPointerList 都是在 Classes 单元定义的, 为了省略 uses Classes, 在 MyList 单元中重新做了定义.
unit MyList;

interface

const
  MaxListSize = Maxint div 16;

type
  PPointerList = ^TPointerList;
  TPointerList = array[0..MaxListSize - 1] 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

end;

procedure TMyList.Clear;
begin

end;

procedure TMyList.Delete(Index: Integer);
begin

end;

destructor TMyList.Destroy;
begin
  Clear;
  inherited;
end;

procedure TMyList.SetCapacity(const Value: Integer);
begin

end;

procedure TMyList.SetCount(const Value: Integer);
begin

end;

end.

 
 
 
 
 

 

 

  
至此, 类的轮廓已经出来, 该实现一下这些方法了.

本文转载自:http://www.cnblogs.com/del/archive/2008/03/28/1127265.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
vim for php IDE 我的打造过程

vim是一个很强的神器,对于我只用到其中的一小部分内容,接下来是我打造 php IDE的全过程,希望有兄弟能指点我其中的不足,要学习的兄弟能跟我一起努力学习。 第一步:配_vimrc,配成自己喜欢...

路边拾草人
2011/04/16
9.7K
21
VIM编辑器支持Python开发环境(Vim+Ctags+Taglist)

在Linux下用VI编辑器进行Python开发,有必要对VI编辑器进行一些配置,使其具备以下特性: 1、加强的 Python 语法高亮显示; 2、对脚本、项目生成 ctag 序列; 3、在 vim 中显示 ctag 序列列表...

庄小寒
2014/02/26
0
0
windows环境中vim插件配置(便利的vim)

打开vim的文件类型自动检测功能:filetype on,就是在vimrc文件中加上filetype on 1.ctags 1.1ctags功能: tags是个exe文件,在shell中执行来在工程目录中创建tags(就是函数的映射关系),适...

_FreeDoM
2014/06/04
0
0
[转]vim ctags使用方法

windows下很多人都使用source insight 编写和查看代码。linux下可以使用VIM,刚开始会觉得VIM像windows下的记事本,而如果使用得当,它并不比source insight 逊色。 在这里,我会尽我所能细致...

文艺小青年
2017/07/13
0
0
深入解析windows XP/2003:查看进程树

在windows调试工具箱中使用tilist.exe的/t开关,显示进程树。 Microsoft Windows XP [版本 5.1.2600] (C) 版权所有 1985-2001 Microsoft Corp. C:/Program Files/Debugging Tools for Windo......

晨曦之光
2012/03/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

js 操作cookie

var cookie = {// 设置cookie方法 set:function(key,val,time){ var date = new Date(); //获取当前时间 var expiresDays = time; //将date设置为n天以后的时间...

小丶二
2分钟前
0
0
限制root远程登录 su和sudo命令

9月21日任务 3.7 su命令 3.8 sudo命令 3.9 限制root远程登录 对于Linux而言,权限的重要性毋庸置疑!对于普通用户而言无法执行那些只有root用户才能有效的命令,导致工作无法有效进行; 系统...

robertt15
4分钟前
0
0
MQTT协议的初浅认识之通讯级别和持久会话

背景 这是我最近了解MQTT协议的最后一部分内容了,MQTT协议里面的QOS和Keep Alive是两个比较重要的内容。QOS的设置,直接影响了订阅客户端与中间件之间的消息交互行为。而Keep Alive直接影响...

亚林瓜子
6分钟前
0
0
calc

width: calc(100% - 30px); 特别注意:减号左右空格,均不能去掉。 width: calc(100% - 30px);

柴高八斗之父
14分钟前
0
0
Spring Cloud Gateway全局过滤器GlobalFilter:返回消息和重定向

Spring Cloud Gateway的全局过滤器GlobalFilter,顾名思义,声明后会对所有的请求生效,可以用来做权限控制,这里简单记录一下拦截到非法请求后如何返回自定义信息和将请求重定向到指定URL。...

夜雨寄北09
16分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部