学习 TList 类的实现[7]

总结目前 TMyList 已具备的功能(3 个方法、3 个属性):

Add: 添加;
Delete: 删除;
Clear: 清空;
Count: 元素总数;
Capacity: 已存在的所有元素位置数;
List: 指向核心数组的指针(只读).

举例测试如下:

---

unit Unit1;

interface

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

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

var
  Form1: TForm1;
implementation

{$R *.dfm}

uses MyList;         {uses TMyList 所在单元}

type
  TMyRec = record    {定义结构; 用于填充测试}
    name: string[];
    age : Word;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ListA: TMyList;
  r,r1,r2,r3,r4,r5: TMyRec;
begin
  ListA := TMyList.Create;

  {建立之初, Count 与 Capacity 两个属性都应该是 0; 测试:}
  ShowMessageFmt('%d,%d',[ListA.Count,ListA.Capacity]); {0,0}

  {添加一个元素(指针)}
  r1.name := '张三';
  r1.age  := ;
  ListA.Add(@r1);

  {现在 Count 应该是 1, Capacity 应该是 4; 测试:}
  ShowMessageFmt('%d,%d',[ListA.Count,ListA.Capacity]); {1,4}

  {继续添加}
  r2.name := '李四';
  r2.age  := ;
  ListA.Add(@r2);

  r3.name := '王五';
  r3.age  := ;
  ListA.Add(@r3);

  r4.name := '孙六';
  r4.age  := ;
  ListA.Add(@r4);

  r5.name := '候七';
  r5.age  := ;
  ListA.Add(@r5);

  {现在 Count 应该是 5, Capacity 应该是 8; 测试:}
  ShowMessageFmt('%d,%d',[ListA.Count,ListA.Capacity]); {5,8}

  {用 TMyList 的 List 属性获取第三个元素}
  r := TMyRec(ListA.List^[]^);
  ShowMessageFmt('%s:%d',[r.name, r.age]); {王五:33}

  {删除第三个元素后再访问第三个元素}
  ListA.Delete();
  r := TMyRec(ListA.List^[]^);
  ShowMessageFmt('%s:%d',[r.name, r.age]); {孙六:44}

  {执行 Clear 方法后, Count 和 Capacity 应该清 0}
  ListA.Clear;
  ShowMessageFmt('%d,%d',[ListA.Count,ListA.Capacity]); {0,0}

  ListA.Free;
end;

end.

---

从上面的例子可以看出, 现在要访问一个元素真不容易: r := TMyRec(ListA.List^[2]^);

理解一下:

ListA.List 是那个核心数组的指针, 要表示那个数组应该用: ListA.List^

数组的第二个元素 ListA.List^[2], 又是指向元素的指针, 获取元素应该用: ListA.List^[2]^

还有转换成可以识别的对象: TMyRec(ListA.List^[2]^);

---

应尽早添加 TMyRec.Items[i] 数组属性来访问元素, 不然麻烦透了!

---