Changeset 77 for Generics/TemplateGenerics/Generic/ListInterface.tpl

Timestamp:

Oct 29, 2010, 1:26:32 PM (14 years ago)

Author:

george

Message:

• Added: Generic range type.
• Added: Specialized TListByte type which si simply memory block.
• Added: New functionality to TGList.

File:

• Generics/TemplateGenerics/Generic/ListInterface.tpl (modified) (5 diffs)

Generics/TemplateGenerics/Generic/ListInterface.tpl

@@ +1 @@
+
+  PGListItem = ^TListItem;
+  TGList = class;
 
   TGListSortCompare = function(const Item1, Item2: TListItem): Integer of object;
   TGListStringConverter = function(Item: TListItem): string;
+  TGListOperation = procedure(List: TGList; Item: PGListItem);
   //TGListNotification = (lnAdded, lnExtracted, lnDeleted);
 
@@ -16 +20 @@
     procedure SetCount(const AValue: TListIndex);
     procedure QuickSort(L, R : TListIndex; Compare: TGListSortCompare);
-    property Capacity: TListIndex read GetCapacity write SetCapacity;
   public
     // All items
@@ -24 +27 @@
     procedure Sort(Compare: TGListSortCompare);
     function Implode(Separator: string; Converter: TGListStringConverter): string;
+    procedure Perform(Operation: TGListOperation);
     // Many items
     procedure MoveItems(CurIndex, NewIndex, Count: TListIndex);
     procedure DeleteItems(Index, Count: TListIndex);
+    procedure Fill(Start, Count: TListIndex; Value: TListItem);
     // One item
     function Add(Item: TListItem): TListIndex;
@@ -33 +38 @@
     procedure Exchange(Index1, Index2: TListIndex);
     function First: TListItem;
-    function IndexOf(Item: TListItem): TListIndex;
+    function IndexOf(Item: TListItem; Start: TListIndex = 0): TListIndex;
     procedure Insert(Index: TListIndex; Item: TListItem);
     function Last: TListItem;
@@ -42 +47 @@
     procedure AddList(List: TGList);
     procedure Assign(List: TGList);
-    //function Equals(Obj: TObject): Boolean; override;
+    function Equals(List: TGList): Boolean;
     procedure InsertList(Index: TListIndex; List: TGList);
+    function IndexOfList(List: TGList; Start: TListIndex = 0): TListIndex;
     // Other
     property Count: TListIndex read GetCount write SetCount;
-    // Additional
+    property Capacity: TListIndex read GetCapacity write SetCapacity;
+    // Array
     procedure AddArray(Values: array of TListItem);
+    procedure SetArray(Values: array of TListItem);
+    procedure InsertArray(Index: TListIndex; Values: array of TListItem);
   end;