数组集合之TList

Tlist 繼承於 : TObject .

 用来存储指针的数组的类.

屬性:

1.  property Capacity: Integer;  

  容量, 理論分配空間; 每次分配 4 個 , 自動擴容.

 

2. property Count: Integer;  

  計數, 實際佔用的空間.

 

3. Items[Index: Integer]: Pointer; default;

項目數值.

默認值, 即 TList[i] 與 TList.Items[i] 是等效的.

 

4. property List: PPointerList;

指向每一個項目的指針數值;

與 TList[i] , TList.Items[i] 是等效的.

 

方法:

1. function Add(Item: Pointer): Integer;

在Items項目後增加一項.

 

2. procedure Assign(ListA: TList; AOperator: TListAssignOp = laCopy; ListB: TList = nil);

將對象指針指向另一個 TList 類型的實例. 簡單用法: myList2.Assign(myList);

 

3. procedure Clear; virtual;

清除所有Item. Count = 0;

 

4. procedure Delete(Index: Integer);

刪除指定的 Item.

 

5. procedure Exchange(Index1, Index2: Integer);

交換 Item.

 

6. function Extract(Item: Pointer): Pointer;

從 Items 刪除與指定內容相同的所有 Item.

 

7. function First: Pointer;

返回 Items[0].

 

8. function IndexOf(Item: Pointer): Integer;

檢索 Index , 例子:

if MyList.IndexOf(MyObject)=-1 then MyList.Add(MyObject);

 

9. procedure Insert(Index: Integer; Item: Pointer);

指定位置插入一個 Item.

 

10. function Last: Pointer;

返回 Items[Count - 1].

 

11. procedure Move(CurIndex, NewIndex: Integer);

把Item 的位置從 CurIndex 移到 NewIndex.

 

12. procedure Pack;

刪除 所有為nil 的Item .

 

13. function Remove(Item: Pointer): Integer;

刪除和指定的 Item 第一個相同的 Item . 不清楚所要刪除的Item的 Index 時使用.

返回值為要刪除的 Item 的 Index . 若返回 -1 , 則沒有找到.

注意 與 Extract 的區別.

 

14. procedure Sort(Compare: TListSortCompare);

使用CompareText方法, 執行QuickSort . 使用示例:

 

function CompareNames(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText((Item1 as TComponent).Name, (Item2 as TComponent).Name);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  List1.Sort(@CompareText);
end;

 

 

應用代碼:

 

 procedure TForm1.btn2Click(Sender: TObject); type PMyList =^AList; AList= record i : Integer; c : Char; end; var myList , myList2: TList; AR : PMyList; begin New(AR); AR^.i := 3; AR^.c := Chr(Ord('3')); myList := TList.Create; try // Add 2個 Item New(AR); AR^.i := 3; AR^.c := Chr(Ord('3')); myList.Add(AR); New(AR); AR^.i := 5; AR^.c := Chr(Ord('5')); myList.Add(AR); New(AR); AR^.i := 5; AR^.c := Chr(Ord('5')); myList.Add(AR); mmo1.Lines.Add(('Capacity = ' + IntToStr(myList.Capacity) // Capacity = 4 + ', Count = '+ IntToStr(myList.Count))); // Count = 1 AR := myList[0]; // 都是PMyList 類型, 指向 myList[0]. 這裡 myList[0] 與 myList.List[0], myList.Items[0] 等效 mmo1.Lines.Add('myList[0].i = ' + IntToStr(AR^.i)); myList2 := TList.Create; try myList2.Assign(myList); // 在內存中拷貝一份 myList , 並賦給 myList2 AR := myList2[0]; mmo1.Lines.Add('myList2[0].c = ' + AR^.c); myList.Delete(0); AR := myList[0]; mmo1.Lines.Add('After myList.Delete(0) , Mylist[0].c =' + AR^.c); // Extract 和 Remove 的區別 , List 中有2個相同的 Item. AR^.i := 5; AR^.c := Chr(Ord('5')); myList.Extract(AR); myList2.Remove(AR); mmo1.Lines.Add('After myList.Extract, Count =' + IntToStr(myList.Count)); mmo1.Lines.Add('After myList2.Remove, Count =' + IntToStr(myList2.Count)); myList2.Clear; mmo1.Lines.Add('After myList2.Clear , Mylist2.Count =' + IntToStr(myList2.Count) + ', Mylist.Count =' + IntToStr(myList.Count)); // Mylist2.Count = 2, Mylist.Count = 1 // 釋放內存 Dispose(AR); finally myList2.Free; end; finally myList.Free; end; end;