Changeset 112 for Generics/TemplateGenerics/Specialized

Timestamp:

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

Author:

george

Message:

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

Location:

Generics/TemplateGenerics/Specialized

Files:

• SpecializedDictionary.pas (modified) (2 diffs)
• SpecializedList.pas (modified) (18 diffs)
• SpecializedQueue.pas (modified) (6 diffs)
• SpecializedSet.pas (modified) (4 diffs)
• SpecializedStack.pas (modified) (4 diffs)
• SpecializedTree.pas (modified) (6 diffs)

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'}