Changeset 327 for Generics/NativeGenerics/Units/GenericList.pas

Timestamp:

Feb 9, 2012, 8:46:05 AM (13 years ago)

Author:

chronos

Message:

• Modified: TGTree structure.

File:

• Generics/NativeGenerics/Units/GenericList.pas (modified) (2 diffs)

Generics/NativeGenerics/Units/GenericList.pas

@@ -33 +33 @@
   public
     constructor Create; virtual;
+    function Add(Item: TItem): TIndex; virtual; abstract;
     property Count: TIndex read GetCount write SetCount;
     property Capacity: TIndex read GetCapacity write SetCapacity;
@@ -59 +60 @@
     procedure QuickSort(L, R : TIndex; Compare: TSortCompare);
   public
-    function Add(Item: TItem): TIndex;
+    function Add(Item: TItem): TIndex; override;
     procedure AddArray(Values: array of TItem);
     procedure AddList(List: TGList<TItem>);