测试 TList
// Add、Count、Items[n]
var
List: TList; {声明 List}
frmRed: TForm; {用于测试的对象, 这里选择了窗体}
begin
List :=
原创
2021-04-30 20:34:01
330阅读
type PmyList = ^RmyList; RmyList = record name: string; Age: integer; end;var AList: TList; PaList: PmyList; I
原创
2023-08-31 11:03:26
50阅读
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type t1 = class a: string; b: string; end; TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObject); procedure Button1Cl...
转载
2013-12-10 21:02:00
94阅读
2评论
TList类的源码分析，转载别人的，还不错。。。。
转载
2011-03-24 16:59:03
529阅读
type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt;var List: TList;procedure TForm2.Button1Click(Sender: TOb
原创
2023-08-31 10:20:52
56阅读
在你的vim可以使用Tlist 插件的情况下。如果你想要打开文件自动加载Tlist 的话需要复制下面的文字到你的.vimrc 文件中去"vim自动加载Tlist 插件 &nbs
原创
2014-10-15 11:37:27
1985阅读
学习 TList 类的实现[7]
总结目前 TMyList 已具备的功能(3 个方法、3 个属性):
Add: 添加;
Delete: 删除;
Clear: 清空;
Count: 元素总数;
Capacity: 已存在的所有元素位置数;
List: 指向核心数组的指针(只读).
举例测试如下:un
原创
2021-04-30 14:43:16
242阅读
学习 TList 类的实现[4]
现在准备一步步地模拟 TList 类, 建立一个自己的 TMyList.
首先, 这个类中应该包括前面提到的那个 Pointer 数组(TPointerList)的指针(PPointerList):TMyList = class(TObject)
FList: P
原创
2021-04-30 14:43:20
282阅读
学习 TList 类的实现[1]
最近整理了一些函数列表, 算是一个宏观的安排; 等以后再碰到一些函数时就可以放置的更有次序一些.
我对函数与类的理解是:
函数是一个功能模块, 类是一个更强大的功能模块; Delphi 已经提供了很多的函数与类, 但很多时候我们却视而不见, 重新"刀耕火种".
曾记得网上
原创
2021-04-30 14:43:24
288阅读
详测 Generics Collections TList (11): Create
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Di
原创
2021-04-30 12:17:57
102阅读
详测 Generics Collections TList (8): Sort
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialo
原创
2021-04-30 12:18:01
134阅读
// 自定义的比较函数 function cmp(p1, p2: pointer): integer;begin end; // quicksort原文 procedure QuickSort(SortList: PPointerList; L, R: Integer; SCompare: TLis
转载
2020-12-24 23:46:00
61阅读
2评论
学习 TList 类的实现[8]
现在准备建立 Items 数组属性; 在 public 区输入下面代码:
property Items[Index: Integer]: Pointer;
执行 Shift+Ctrl+C 后的代码是:...
TMyList = class(TObject)
原创
2021-04-30 14:43:15
259阅读
学习 TList 类的实现[6]
实现 TMyList.Add 函数.
TList 中的 Add 函数用到了一个 Grow 方法, 它的原理是元素越多就为以后准备更多内存, 我们这里省略为预留 4 个元素的内存;
TList 中的 Add 函数还同时触动了一个 Notify 方法, 这应该是为它们的子类
原创
2021-04-30 14:43:18
293阅读
学习 TList 类的实现[5]
先来实现 TMyList.SetCapacity.
马上会想到下面代码:procedure TMyList.SetCapacity(const Value: Integer);
begin
if FCapacity <> Value then
原创
2021-04-30 14:43:19
250阅读
学习 TList 类的实现[2]
我原来以为 TList 可能是一个链表, 其实只是一个数组而已.
你知道它包含着多大一个数组吗? MaxListSize 个!
MaxListSize 是 Delphi 在 Classes 单元定义的一个常量:
MaxListSize = Maxint div 16;
原创
2021-04-30 14:43:23
308阅读
type PRecord = ^TMyRec; TMyRec = record s: string[8]; i: integer; d: double;end;var MyList: TList; PR: PRecord;begin MyList := TList.Create; try New(P
转载
2017-06-13 20:01:00
912阅读
2评论
Delphi中的容器类(List)Delphi中的容器类
从Delphi
5开始VCL中增加了一个新的Contnrs单元，单元中定义了８个新的类，全部都是基于标准的TList
类。
TList
类
TList
类实际上就是一个可以存储指针的容器类，提供了一系列的方法和属性来添加，删除，重排，定位，存取和排序容器中的类，它是基于数组的机制来实现的容器，比较类似于C++中的Vector
转载
2024-05-08 21:46:13
925阅读
详测 Generics Collections TList (9): BinarySearch
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
原创
2021-04-30 12:17:59
182阅读
大家知道Hash表具有对于它的KEY进行高速检索的功能。而Tlist中有可以保存自己定义的各种结构。如果将他们两个结合起来使用会是什么情况呢？
试想一下，如果在游戏中如果突然有哪个玩家断线，那么即便是我们知道这个玩家的Socket，但是要从所有玩家中检索出他的信息，也不是一件容易的事。
那我们为什么不能将Hash表和Tlist结合使用呢。在我开发的游戏中，我就是将Hash表和Tlist同时使用
推荐
原创
2007-10-14 13:44:09
2279阅读
6评论
