Changeset 112 for Generics

Timestamp:

Jan 3, 2011, 3:25:24 PM (13 years ago)

Author:

george

Message:

• Added: Method GetArray and SetArray of TGList use array of TGListItemArray.

Location:

Generics/TemplateGenerics

Files:

• Demo/Demo.lpi (modified) (2 diffs)
• Generic/GenericDictionary.inc (modified) (2 diffs)
• Generic/GenericList.inc (modified) (6 diffs)
• Generic/GenericListObject.inc (modified) (2 diffs)
• Generic/GenericListString.inc (modified) (2 diffs)
• Generic/GenericQueue.inc (modified) (2 diffs)
• Generic/GenericSet.inc (modified) (2 diffs)
• Generic/GenericStack.inc (modified) (2 diffs)
• Generic/GenericTree.inc (modified) (2 diffs)
• Specialized/SpecializedDictionary.pas (modified) (2 diffs)
• Specialized/SpecializedList.pas (modified) (18 diffs)
• Specialized/SpecializedQueue.pas (modified) (6 diffs)
• Specialized/SpecializedSet.pas (modified) (4 diffs)
• Specialized/SpecializedStack.pas (modified) (4 diffs)
• Specialized/SpecializedTree.pas (modified) (6 diffs)

Generics/TemplateGenerics/Demo/Demo.lpi

@@ -312 +312 @@
       <Unit32>
         <Filename Value="../Generic/GenericList.inc"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <TopLine Value="462"/>
-        <CursorPos X="30" Y="470"/>
+        <CursorPos X="40" Y="470"/>
         <UsageCount Value="107"/>
         <Loaded Value="True"/>
@@ -520 +521 @@
       <Unit59>
         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="649"/>
-        <CursorPos X="23" Y="661"/>
+        <CursorPos X="38" Y="671"/>
         <UsageCount Value="10"/>
         <Loaded Value="True"/>

Generics/TemplateGenerics/Generic/GenericDictionary.inc

@@ -14 +14 @@
 {$DEFINE TGListToStringConverter := TDictionaryToStringConverter}
 {$DEFINE TGListFromStringConverter := TDictionaryFromStringConverter}
+{$DEFINE TGListItemArray := TDictionaryItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -48 +49 @@
 {$DEFINE TGListToStringConverter := TDictionaryToStringConverter}
 {$DEFINE TGListFromStringConverter := TDictionaryFromStringConverter}
+{$DEFINE TGListItemArray := TDictionaryItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -6 +6 @@
   TGListToStringConverter = function(Item: TGListItem): string;
   TGListFromStringConverter = function(Text: string): TGListItem;
+  TGListItemArray = array of TGListItem;
 
   // TGList<TGListIndex, TGListItem> = class
@@ -32 +33 @@
     procedure DeleteItems(Index, Count: TGListIndex);
     function EqualTo(List: TGList): Boolean;
+    procedure Exchange(Index1, Index2: TGListIndex);
+    procedure Explode(Text, Separator: string; Converter: TGListFromStringConverter; SlicesCount: Integer = -1);
     function Extract(Item: TGListItem): TGListItem;
-    procedure Exchange(Index1, Index2: TGListIndex);
     property First: TGListItem read GetFirst write SetFirst;
     procedure Fill(Start, Count: TGListIndex; Value: TGListItem);
+    function GetArray: TGListItemArray;
     function Implode(Separator: string; Converter: TGListToStringConverter): string;
-    procedure Explode(Text, Separator: string; Converter: TGListFromStringConverter; SlicesCount: Integer = -1);
     function IndexOf(Item: TGListItem; Start: TGListIndex = 0): TGListIndex;
     function IndexOfList(List: TGList; Start: TGListIndex = 0): TGListIndex;
@@ -48 +50 @@
     procedure Reverse;
     procedure Sort(Compare: TGListSortCompare);
-    procedure SetArray(Values: array of TGListItem);
+    procedure SetArray(Values: TGListItemArray);
     property Count: TGListIndex read FCount write SetCount;
     property Capacity: TGListIndex read GetCapacity write SetCapacity;
@@ -123 +125 @@
   FCount := AValue;
   if AValue < Capacity then SetCapacityOptimized(AValue); // After FCount change
+end;
+
+function TGList.GetArray: TGListItemArray;
+var
+  I: Integer;
+begin
+  SetLength(Result, Count);
+  I := 0;
+  while I < Count do begin
+    Result[I] := FItems[I];
+    I := I + 1;
+  end;
 end;
 
@@ -181 +195 @@
 begin
   Result := Start;
-  // Use slower CompareMem instead of (FItems[Result] <> Item) to support records
   while (Result < FCount) and
   not CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TGListItem)) do
@@ -358 +371 @@
 end;
 
-procedure TGList.SetArray(Values: array of TGListItem);
+procedure TGList.SetArray(Values: TGListItemArray);
 var
   I: TGListIndex;

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -7 +7 @@
 {$DEFINE TGListToStringConverter := TGListObjectToStringConverter}
 {$DEFINE TGListFromStringConverter := TGListObjectFromStringConverter}
+{$DEFINE TGListItemArray := TGListObjectItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -42 +43 @@
 {$DEFINE TGListToStringConverter := TGListObjectToStringConverter}
 {$DEFINE TGListFromStringConverter := TGListObjectFromStringConverter}
+{$DEFINE TGListItemArray := TGListObjectItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericListString.inc

@@ -7 +7 @@
 {$DEFINE TGListToStringConverter := TGListStringToStringConverter}
 {$DEFINE TGListFromStringConverter := TGListStringFromStringConverter}
+{$DEFINE TGListItemArray := TGListStringItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -40 +41 @@
 {$DEFINE TGListToStringConverter := TGListStringToStringConverter}
 {$DEFINE TGListFromStringConverter := TGListStringFromStringConverter}
+{$DEFINE TGListItemArray := TGListStringItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericQueue.inc

@@ -7 +7 @@
 {$DEFINE TGListToStringConverter := TGQueueToStringConverter}
 {$DEFINE TGListFromStringConverter := TGQueueFromStringConverter}
+{$DEFINE TGListItemArray := TGQueueItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -42 +43 @@
 {$DEFINE TGListToStringConverter := TGQueueToStringConverter}
 {$DEFINE TGListFromStringConverter := TGQueueFromStringConverter}
+{$DEFINE TGListItemArray := TGQueueItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericSet.inc

@@ -7 +7 @@
 {$DEFINE TGListToStringConverter := TGSetToStringConverter}
 {$DEFINE TGListFromStringConverter := TGSetFromStringConverter}
+{$DEFINE TGListItemArray := TGSetItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -40 +41 @@
 {$DEFINE TGListToStringConverter := TGSetToStringConverter}
 {$DEFINE TGListFromStringConverter := TGSetFromStringConverter}
+{$DEFINE TGListItemArray := TGSetItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericStack.inc

@@ -7 +7 @@
 {$DEFINE TGListToStringConverter := TGStackToStringConverter}
 {$DEFINE TGListFromStringConverter := TGStackFromStringConverter}
+{$DEFINE TGListItemArray := TGStackItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -41 +42 @@
 {$DEFINE TGListToStringConverter := TGStackToStringConverter}
 {$DEFINE TGListFromStringConverter := TGStackFromStringConverter}
+{$DEFINE TGListItemArray := TGStackItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericTree.inc

@@ -9 +9 @@
 {$DEFINE TGListToStringConverter := TGTreeToStringConverter}
 {$DEFINE TGListFromStringConverter := TGTreeFromStringConverter}
+{$DEFINE TGListItemArray := TGTreeItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -46 +47 @@
 {$DEFINE TGListToStringConverter := TGTreeToStringConverter}
 {$DEFINE TGListFromStringConverter := TGTreeFromStringConverter}
+{$DEFINE TGListItemArray := TGTreeItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas

@@ -21 +21 @@
 {$DEFINE TGDictionaryToStringConverter := TDictionaryToStringConverterInteger}
 {$DEFINE TGDictionaryFromStringConverter := TDictionaryFromStringConverterInteger}
+{$DEFINE TGDictionaryItemArray := TDictionaryStringItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericDictionary.inc'}
@@ -36 +37 @@
 {$DEFINE TGDictionaryToStringConverter := TDictionaryToStringConverterInteger}
 {$DEFINE TGDictionaryFromStringConverter := TDictionaryFromStringConverterInteger}
+{$DEFINE TGDictionaryItemArray := TDictionaryStringItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericDictionary.inc'}

Generics/TemplateGenerics/Specialized/SpecializedList.pas

@@ -18 +18 @@
 {$DEFINE TGListToStringConverter := TListIntegerToStringConverter}
 {$DEFINE TGListFromStringConverter := TListIntegerFromStringConverter}
+{$DEFINE TGListItemArray := TListIntegerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -28 +29 @@
 {$DEFINE TGListToStringConverter := TListSmallIntToStringConverter}
 {$DEFINE TGListFromStringConverter := TListSmallIntFromStringConverter}
+{$DEFINE TGListItemArray := TListSmallIntItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -38 +40 @@
 {$DEFINE TGListToStringConverter := TListDoubleToStringConverter}
 {$DEFINE TGListFromStringConverter := TListDoubleFromStringConverter}
+{$DEFINE TGListItemArray := TListDoubleItemArray}
 {$DEFINE INTERFACE}
 {$INCLUDE '..\Generic\GenericList.inc'}
@@ -48 +51 @@
 {$DEFINE TGListToStringConverter := TListPointerToStringConverter}
 {$DEFINE TGListFromStringConverter := TListPointerFromStringConverter}
+{$DEFINE TGListItemArray := TListPointerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -58 +62 @@
 {$DEFINE TGListStringToStringConverter := TListStringToStringConverter}
 {$DEFINE TGListStringFromStringConverter := TListStringFromStringConverter}
+{$DEFINE TGListItemArray := TListStringItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericListString.inc'}
@@ -68 +73 @@
 {$DEFINE TGListToStringConverter := TListByteToStringConverter}
 {$DEFINE TGListFromStringConverter := TListByteFromStringConverter}
+{$DEFINE TGListItemArray := TListByteItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -78 +84 @@
 {$DEFINE TGListToStringConverter := TListToStringConverterChar}
 {$DEFINE TGListFromStringConverter := TListFromStringConverterChar}
+{$DEFINE TGListItemArray := TListStringItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -89 +96 @@
 {$DEFINE TGListObjectToStringConverter := TListObjectToStringConverter}
 {$DEFINE TGListObjectFromStringConverter := TListObjectFromStringConverter}
+{$DEFINE TGListItemArray := TListObjectItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericListObject.inc'}
@@ -111 +119 @@
 {$DEFINE TGListToStringConverter := TListMethodToStringConverter}
 {$DEFINE TGListFromStringConverter := TListMethodFromStringConverter}
+{$DEFINE TGListItemArray := TListMethodItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -128 +137 @@
 
 // TListInteger<Integer, Integer>
-{$DEFINE TGListIndex:=Integer}
-{$DEFINE TGListItem:=Integer}
-{$DEFINE TGList:=TListInteger}
-{$DEFINE TGListSortCompare:=TListIntegerSortCompare}
-{$DEFINE TGListToStringConverter:=TListIntegerToStringConverter}
-{$DEFINE TGListFromStringConverter:=TListIntegerFromStringConverter}
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := Integer}
+{$DEFINE TGList := TListInteger}
+{$DEFINE TGListSortCompare := TListIntegerSortCompare}
+{$DEFINE TGListToStringConverter := TListIntegerToStringConverter}
+{$DEFINE TGListFromStringConverter := TListIntegerFromStringConverter}
+{$DEFINE TGListItemArray := TListIntegerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -144 +154 @@
 {$DEFINE TGListToStringConverter:=TListSmallIntToStringConverter}
 {$DEFINE TGListFromStringConverter:=TListSmallIntFromStringConverter}
+{$DEFINE TGListItemArray := TListSmallIntItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -154 +165 @@
 {$DEFINE TGListToStringConverter := TListDoubleToStringConverter}
 {$DEFINE TGListFromStringConverter := TListDoubleFromStringConverter}
+{$DEFINE TGListItemArray := TListDoubleItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -164 +176 @@
 {$DEFINE TGListToStringConverter := TListPointerToStringConverter}
 {$DEFINE TGListFromStringConverter := TListPointerFromStringConverter}
+{$DEFINE TGListItemArray := TListPointerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -174 +187 @@
 {$DEFINE TGListStringToStringConverter := TListStringToStringConverter}
 {$DEFINE TGListStringFromStringConverter := TListStringFromStringConverter}
+{$DEFINE TGListItemArray := TListStringItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericListString.inc'}
@@ -184 +198 @@
 {$DEFINE TGListToStringConverter := TListByteToStringConverter}
 {$DEFINE TGListFromStringConverter := TListByteFromStringConverter}
+{$DEFINE TGListItemArray := TListByteItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -194 +209 @@
 {$DEFINE TGListToStringConverter := TListToStringConverterChar}
 {$DEFINE TGListFromStringConverter := TListFromStringConverterChar}
+{$DEFINE TGListItemArray := TListStringItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -205 +221 @@
 {$DEFINE TGListObjectToStringConverter := TListObjectToStringConverter}
 {$DEFINE TGListObjectFromStringConverter := TListObjectFromStringConverter}
+{$DEFINE TGListItemArray := TListObjectItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericListObject.inc'}
@@ -215 +232 @@
 {$DEFINE TGListToStringConverter := TListMethodToStringConverter}
 {$DEFINE TGListFromStringConverter := TListMethodFromStringConverter}
+{$DEFINE TGListItemArray := TListMethodItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Specialized/SpecializedQueue.pas

@@ -19 +19 @@
 {$DEFINE TGQueueToStringConverter := TQueueToStringConverterInteger}
 {$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterInteger}
+{$DEFINE TGQueueItemArray := TQueueIntegerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericQueue.inc'}
@@ -30 +31 @@
 {$DEFINE TGQueueToStringConverter := TQueueToStringConverterPointer}
 {$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterPointer}
+{$DEFINE TGQueueItemArray := TQueuePointerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericQueue.inc'}
@@ -41 +43 @@
 {$DEFINE TGQueueToStringConverter := TQueueToStringConverterByte}
 {$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterByte}
+{$DEFINE TGQueueItemArray := TQueueByteItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericQueue.inc'}
@@ -57 +60 @@
 {$DEFINE TGQueueToStringConverter := TQueueToStringConverterInteger}
 {$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterInteger}
+{$DEFINE TGQueueItemArray := TQueueIntegerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I '..\Generic\GenericQueue.inc'}
@@ -68 +72 @@
 {$DEFINE TGQueueToStringConverter := TQueueToStringConverterPointer}
 {$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterPointer}
+{$DEFINE TGQueueItemArray := TQueuePointerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericQueue.inc'}
@@ -79 +84 @@
 {$DEFINE TGQueueToStringConverter := TQueueToStringConverterByte}
 {$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterByte}
+{$DEFINE TGQueueItemArray := TQueueByteItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericQueue.inc'}

Generics/TemplateGenerics/Specialized/SpecializedSet.pas

@@ -19 +19 @@
 {$DEFINE TGSetToStringConverter := TSetToStringConverterInteger}
 {$DEFINE TGSetFromStringConverter := TSetFromStringConverterInteger}
+{$DEFINE TGSetItemArray := TSetIntegerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericSet.inc'}
@@ -30 +31 @@
 {$DEFINE TGSetToStringConverter := TSetToStringConverterPointer}
 {$DEFINE TGSetFromStringConverter := TSetFromStringConverterPointer}
+{$DEFINE TGSetItemArray := TSetPointerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericSet.inc'}
@@ -46 +48 @@
 {$DEFINE TGSetToStringConverter := TSetToStringConverterInteger}
 {$DEFINE TGSetFromStringConverter := TSetFromStringConverterInteger}
+{$DEFINE TGSetItemArray := TSetIntegerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericSet.inc'}
@@ -57 +60 @@
 {$DEFINE TGSetToStringConverter := TSetToStringConverterPointer}
 {$DEFINE TGSetFromStringConverter := TSetFromStringConverterPointer}
+{$DEFINE TGSetItemArray := TSetPointerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericSet.inc'}

Generics/TemplateGenerics/Specialized/SpecializedStack.pas

@@ -19 +19 @@
 {$DEFINE TGStackToStringConverter := TStackToStringConverterInteger}
 {$DEFINE TGStackFromStringConverter := TStackFromStringConverterInteger}
+{$DEFINE TGStackItemArray := TStackIntegerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericStack.inc'}
@@ -30 +31 @@
 {$DEFINE TGStackToStringConverter := TStackToStringConverterPointer}
 {$DEFINE TGStackFromStringConverter := TStackFromStringConverterPointer}
+{$DEFINE TGStackItemArray := TStackStringItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericStack.inc'}
@@ -47 +49 @@
 {$DEFINE TGStackToStringConverter := TStackToStringConverterInteger}
 {$DEFINE TGStackFromStringConverter := TStackFromStringConverterInteger}
+{$DEFINE TGStackItemArray := TStackIntegerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericStack.inc'}
@@ -58 +61 @@
 {$DEFINE TGStackToStringConverter := TStackToStringConverterPointer}
 {$DEFINE TGStackFromStringConverter := TStackFromStringConverterPointer}
+{$DEFINE TGStackItemArray := TStackStringItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericStack.inc'}

Generics/TemplateGenerics/Specialized/SpecializedTree.pas

@@ -19 +19 @@
 {$DEFINE TGTreeToStringConverter := TTreeToStringConverterInteger}
 {$DEFINE TGTreeFromStringConverter := TTreeFromStringConverterInteger}
+{$DEFINE TGTreeItemArray := TTreeIntegerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericTree.inc'}
@@ -31 +32 @@
 {$DEFINE TGTreeToStringConverter := TTreeToStringConverterString}
 {$DEFINE TGTreeFromStringConverter := TTreeFromStringConverterString}
+{$DEFINE TGTreeItemArray := TTreeStringItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericTree.inc'}
@@ -43 +45 @@
 {$DEFINE TGTreeToStringConverter := TTreeToStringConverterPointer}
 {$DEFINE TGTreeFromStringConverter := TTreeFromStringConverterPointer}
+{$DEFINE TGTreeItemArray := TTreePointerItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericTree.inc'}
@@ -60 +63 @@
 {$DEFINE TGTreeToStringConverter := TTreeToStringConverterInteger}
 {$DEFINE TGTreeFromStringConverter := TTreeFromStringConverterInteger}
+{$DEFINE TGTreeItemArray := TTreeIntegerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericTree.inc'}
@@ -72 +76 @@
 {$DEFINE TGTreeToStringConverter := TTreeToStringConverterString}
 {$DEFINE TGTreeFromStringConverter := TTreeFromStringConverterString}
+{$DEFINE TGTreeItemArray := TTreeStringItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericTree.inc'}
@@ -84 +89 @@
 {$DEFINE TGTreeToStringConverter := TTreeToStringConverterPointer}
 {$DEFINE TGTreeFromStringConverter := TTreeFromStringConverterPointer}
+{$DEFINE TGTreeItemArray := TTreePointerItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericTree.inc'}