Changeset 247 for Generics

Timestamp:

May 24, 2011, 12:36:12 PM (13 years ago)

Author:

george

Message:

• Fixed: Various minor bugs and enhancements.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (4 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -30 +30 @@
     procedure AddList(List: TGList);
     procedure Assign(Source: TGList); virtual;
+    constructor Create; virtual;
     procedure Clear; virtual;
     procedure Delete(Index: TGListIndex); virtual;
@@ -52 +53 @@
     procedure Replace(Index: TGListIndex; Source: TGList);
     procedure Sort(Compare: TGListSortCompare);
-    procedure SetArray(Values: TGListItemArray);
+    procedure SetArray(Values: array of TGListItem);
     property Count: TGListIndex read FCount write SetCount;
     property Capacity: TGListIndex read GetCapacity write SetCapacity;
@@ -73 +74 @@
 
 { TGList }
+
+constructor TGList.Create;
+begin
+  FCount := 0;
+end;
 
 procedure TGList.Replace(Index: TGListIndex; Source: TGList);
@@ -405 +411 @@
 end;
 
-procedure TGList.SetArray(Values: TGListItemArray);
+procedure TGList.SetArray(Values: array of TGListItem);
 var
   I: TGListIndex;