文档章节

学习 TList 类的实现[4]

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 1038
阅读 4
收藏 0
点赞 0
评论 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.

 
 
 
 
 

 

 

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

© 著作权归作者所有

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

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

路边拾草人 ⋅ 2011/04/16 ⋅ 21

VIM编辑器支持Python开发环境(Vim+Ctags+Taglist)

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

庄小寒 ⋅ 2014/02/26 ⋅ 0

windows环境中vim插件配置(便利的vim)

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

_FreeDoM ⋅ 2014/06/04 ⋅ 0

[转]vim ctags使用方法

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

文艺小青年 ⋅ 2017/07/13 ⋅ 0

Ubuntu下创建vim+Taglist+cscope+ctags组合编辑器

有人抱怨Linux系统下没有类似于VC之类的方便快捷的编辑器,有人用gedit, 有人用vim,但是都不方便而且也没有自动补全之类的方便用户的功能。本文简单介绍使用vim中的几个插件(Ctags、Cscop...

贪睡猫仙mosen ⋅ 2014/06/17 ⋅ 0

VIM配置记录

在vimrc文件中添加如下配置: set nocompatible set number filetype indent plugin on syntax enable syntax on colorscheme desert set tags=tags set autochdir set ruler set showcmd s......

whysln ⋅ 2014/01/10 ⋅ 6

vim中多标签和多窗口的使用

1、打开多个窗口 打开多个窗口的命令以下几个: 横向切割窗口 :new+窗口名(保存后就是文件名) :split+窗口名,也可以简写为:sp+窗口名 纵向切割窗口名 :vsplit+窗口名,也可以简写为:vsp+窗...

henry-zhang ⋅ 2015/06/09 ⋅ 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

VIMrc 配置文件

"=========================================================================" DesCRiption: 适合自己使用的vimrc文件,for Linux/Windows, GUI/Console " " Last Change: 2010年08月02日 ......

AlphaJay ⋅ 2012/03/06 ⋅ 0

vim配置经典

“在终端 输入以下命令来编辑vimrc配置文件: ”sudo vim /etc/vim/vimrc “或者 sudo gedit /etc/vim/vimrc 将其复制粘贴进去 "=========================================================...

itJackChen ⋅ 2011/08/30 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

uWSGI + Django @ Ubuntu

创建 Django App Project 创建后, 可以看到路径下有一个wsgi.py的问题 uWSGI运行 直接命令行运行 利用如下命令, 可直接访问 uwsgi --http :8080 --wsgi-file dj/wsgi.py 配置文件 & 运行 [u...

袁祾 ⋅ 33分钟前 ⋅ 0

JVM堆的理解

在JVM中,我们经常提到的就是堆了,堆确实很重要,其实,除了堆之外,还有几个重要的模块,看下图: 大 多数情况下,我们并不需要关心JVM的底层,但是如果了解它的话,对于我们系统调优是非常...

不羁之后 ⋅ 昨天 ⋅ 0

推荐:并发情况下:Java HashMap 形成死循环的原因

在淘宝内网里看到同事发了贴说了一个CPU被100%的线上故障,并且这个事发生了很多次,原因是在Java语言在并发情况下使用HashMap造成Race Condition,从而导致死循环。这个事情我4、5年前也经历...

码代码的小司机 ⋅ 昨天 ⋅ 1

聊聊spring cloud gateway的RetryGatewayFilter

序 本文主要研究一下spring cloud gateway的RetryGatewayFilter GatewayAutoConfiguration spring-cloud-gateway-core-2.0.0.RC2-sources.jar!/org/springframework/cloud/gateway/config/G......

go4it ⋅ 昨天 ⋅ 0

创建新用户和授予MySQL中的权限教程

导读 MySQL是一个开源数据库管理软件,可帮助用户存储,组织和以后检索数据。 它有多种选项来授予特定用户在表和数据库中的细微的权限 - 本教程将简要介绍一些选项。 如何创建新用户 在MySQL...

问题终结者 ⋅ 昨天 ⋅ 0

android -------- 颜色的半透明效果配置

最近有朋友问我 Android 背景颜色的半透明效果配置,我网上看资料,总结了一下, 开发中也是常常遇到的,所以来写篇博客 常用的颜色值格式有: RGB ARGB RRGGBB AARRGGBB 这4种 透明度 透明度...

切切歆语 ⋅ 昨天 ⋅ 0

CentOS开机启动subversion

建立自启动脚本: vim /etc/init.d/subversion 输入如下内容: #!/bin/bash## subversion startup script for the server## chkconfig: 2345 90 10# description: start the subve......

随风而飘 ⋅ 昨天 ⋅ 0

版本控制工具

CSV , SVN , GIT ,VSS

颖伙虫 ⋅ 昨天 ⋅ 0

【2018.06.19学习笔记】【linux高级知识 13.1-13.3】

13.1 设置更改root密码 13.2 连接mysql 13.3 mysql常用命令

lgsxp ⋅ 昨天 ⋅ 0

LVM

LVM: 硬盘划分分区成物理卷->物理卷组成卷组->卷组划分逻辑分区。 1.磁盘分区: fdisk /dev/sdb 划分几个主分区 输入t更改每个分区类型为8e(LVM) 使用partprobe生成分区的文件:如/dev/sd...

ZHENG-JY ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部