文档章节

学习 TList 类的实现[1]

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 577
阅读 6
收藏 0
点赞 0
评论 0
最近整理了一些函数列表, 算是一个宏观的安排; 等以后再碰到一些函数时就可以放置的更有次序一些.

我对函数与类的理解是:

函数是一个功能模块, 类是一个更强大的功能模块; Delphi 已经提供了很多的函数与类, 但很多时候我们却视而不见, 重新"刀耕火种".

曾记得网上有一个 Delphi 行家连续几年开发与升级一个"通配符"相关的函数, 终于有一天他说: 原来 Delphi 有这个函数.
也见过有人大骂 Delphi 连哈希表都没有, 其实只有他不知道而已.
我自己也傻呵呵地实现过 StringOfChar 类似功能的事情, 在这个帖子中:
http://www.cnblogs.com/del/archive/2008/03/12/1101970.html

早就想认真学习几个 Delphi 的类, 看看它的实现过程和实现思路, 以尽早让自己的程序走入正途; 之所以选中 TList 作为开始, 不仅仅是因为它简单、常用, 更主要的原因是: 它是直接由 TObject 派生的.

定义一个继承于 TObject 的类, 有以下三种写法:
TMyList = class(TObject)
end;

TMyList = class
end;

TMyList = class(TObject);

 
 
 
 
 

 

 

  
如果只是在本单元使用, 可以定义在 implementation 区; 但一般要放在 interface 区, 以让其他单元都能使用.

就像定义变量需要冠以 Var、常量需要冠以 Const 一样, 定义一个新的类型需要冠以 Type.

区内所有类型可以共用一个 Type, 若不嫌罗嗦, 每种类型分别冠以 Type 也无不可.

下面的例子中的 TMyList 类就定义在 interface 区 TForm1 类的后面, 因为它们没有依存关系, 前后无所谓.

尽管我们没有给这个类添加任何功能, 因为它继承于 TObject, 并且 TObject 没有 private 区, 所以现在 TMyList 已拥有 TObject 同样的功能(但 Delphi 认为, 它们已经不是一个类型了).
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  {自定义的 TMyList 类}
  TMyList = class(TObject)

  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  myList: TMyList; {声明一个 TMyList 类的变量}
begin
  myList := TMyList.Create;
  ShowMessage(myList.ClassName); {TMyList}
  myList.Free;
end;

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 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

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

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

henry-zhang ⋅ 2015/06/09 ⋅ 0

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

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

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

list iterator not incrementable

在VC6中 list<T*> Tlist; list<T*>::iterator iter; iter=Tlist.end(); 再 iter++; 此时iter的游标位置和iter.begin()相等 但在VC6以后的版本中,比如VC2002,2005,2008中 list<T*> Tlist; li......

ryany ⋅ 2010/11/29 ⋅ 0

CountDownLatch类与join函数的 使用、区别与联系

我先开多个线程处理数据,最后对这多个线程处理的结果,由一个线程进行汇总处理。那么有一个问题就是,最后这个线程要等前面所有的线程都数据处理完成(每个线程处理的时间各不相同,结束的时...

爱吃窝窝头 ⋅ 01/15 ⋅ 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

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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JavaScript零基础入门——(十)JavaScript的DOM基础

JavaScript零基础入门——(十)JavaScript的DOM基础 欢迎大家回到我们的JavaScript零基础入门,上一节课,我们了解了JavaScript中的函数,这一节课,我们来了解一下JavaScript的DOM。 第一节...

JandenMa ⋅ 30分钟前 ⋅ 0

Spring mvc DispatchServlet 实现原理

在Spring中, ContextLoaderListener只是辅助类,在web 容器启动的时候查找并创建WebApplicationContext对象,通过该对象进行加载spring的配置文件。而真正的逻辑实现其实是在DispatcherSer...

轨迹_ ⋅ 42分钟前 ⋅ 0

Weex起步

本教程假设你已经在你的本地环境安装了node 其实weex起步教程在 https://github.com/lilugirl/incubator-weex 项目说明文件中都已经有了,但为了有些同学看到英文秒变文盲,所以这里我重新写...

lilugirl ⋅ 50分钟前 ⋅ 0

Jenkins实践1 之安装

1 下载 http://mirrors.jenkins.io/war/latest/jenkins.war 2 启动 java -jar jenkins.war 前提:安装jdk并配置环境变量 启动结果节选: ************************************************......

晨猫 ⋅ 56分钟前 ⋅ 0

组合数学 1-2000 中,能被6或10整除的数的个数

1--2000 中,能被6或10整除的数的个数 利用集合的性质 能被6整除的个数 2000/6 = 333 能被10整除的个数 2000/10 = 200 能被6和10整除的个数 2000/30 = 66 能被6或10整除的个数 333+200-66 =...

阿豪boy ⋅ 今天 ⋅ 0

一篇文章学懂Shell脚本

Shell脚本,就是利用Shell的命令解释的功能,对一个纯文本的文件进行解析,然后执行这些功能,也可以说Shell脚本就是一系列命令的集合。 Shell可以直接使用在win/Unix/Linux上面,并且可以调用...

Jake_xun ⋅ 今天 ⋅ 0

大数据工程师需要精通算法吗,要达到一个什么程度呢?

机器学习是人工智能的一个重要分支,而机器学习下最重要的就是算法,本文讲述归纳了入门级的几个机器学习算法,加大数据学习群:716581014一起加入AI技术大本营。 1、监督学习算法 这个算法由...

董黎明 ⋅ 今天 ⋅ 0

Kylin 对维度表的的要求

1.要具有数据一致性,主键值必须是唯一的;Kylin 会进行检查,如果有两行的主键值相同则会报错。 2.维度表越小越好,因为 Kylin 会将维度表加载到内存中供查询;过大的表不适合作为维度表,默...

无精疯 ⋅ 今天 ⋅ 0

58到家数据库30条军规解读

军规适用场景:并发量大、数据量大的互联网业务 军规:介绍内容 解读:讲解原因,解读比军规更重要 一、基础规范 (1)必须使用InnoDB存储引擎 解读:支持事务、行级锁、并发性能更好、CPU及...

kim_o ⋅ 今天 ⋅ 0

代码注释中顺序更改 文件读写换行

`package ssh; import com.xxx.common.log.LogFactory; import com.xxx.common.log.LoggerUtil; import org.apache.commons.lang3.StringUtils; import java.io.*; public class DirErgodic ......

林伟琨 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部