Changeset 91 for Generics/TemplateGenerics/Generic

Timestamp:

Nov 17, 2010, 7:34:05 PM (14 years ago)

Author:

george

Message:

• Added: Method Explode to create list items from string.
• Modified: Definition for procedural type TGListStringConverter changed to TGListToStringConverter and TFListFromStringConverter.
• Modified: Sepcialized unit ListObject renamed to SpecializedObjectList.

Location:

Generics/TemplateGenerics/Generic

Files:

• GenericDictionary.inc (modified) (2 diffs)
• GenericList.inc (modified) (6 diffs)
• GenericObjectList.inc (modified) (2 diffs)
• GenericQueue.inc (modified) (2 diffs)
• GenericSet.inc (modified) (2 diffs)
• GenericStack.inc (modified) (2 diffs)
• GenericTree.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericDictionary.inc

@@ -12 +12 @@
 {$DEFINE TGList := TGDictionaryList}
 {$DEFINE TGListSortCompare := TDictionarySortCompare}
-{$DEFINE TGListStringConverter := TDictionaryStringConverter}
+{$DEFINE TGListToStringConverter := TDictionaryToStringConverter}
+{$DEFINE TGListFromStringConverter := TDictionaryFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -45 +46 @@
 {$DEFINE TGList := TGDictionaryList}
 {$DEFINE TGListSortCompare := TDictionarySortCompare}
-{$DEFINE TGListStringConverter := TDictionaryStringConverter}
+{$DEFINE TGListToStringConverter := TDictionaryToStringConverter}
+{$DEFINE TGListFromStringConverter := TDictionaryFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -4 +4 @@
 
   TGListSortCompare = function(const Item1, Item2: TGListItem): Integer of object;
-  TGListStringConverter = function(Item: TGListItem): string;
-  //TGListNotification = (lnAdded, lnExtracted, lnDeleted);
+  TGListToStringConverter = function(Item: TGListItem): string;
+  TGListFromStringConverter = function(Text: string): TGListItem;
 
   // TGList<TGListIndex, TGListItem> = class
@@ -31 +31 @@
     procedure Delete(Index: TGListIndex); virtual;
     procedure DeleteItems(Index, Count: TGListIndex);
-    function Equals(List: TGList): Boolean;
+    function EqualTo(List: TGList): Boolean;
     procedure Expand;
     function Extract(Item: TGListItem): TGListItem;
@@ -37 +37 @@
     property First: TGListItem read GetFirst write SetFirst;
     procedure Fill(Start, Count: TGListIndex; Value: TGListItem);
-    function Implode(Separator: string; Converter: TGListStringConverter): string;
+    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;
@@ -304 +305 @@
 end;
 
-function TGList.Equals(List: TGList): Boolean;
+function TGList.EqualTo(List: TGList): Boolean;
 var
   I: TGListIndex;
@@ -372 +373 @@
 end;
 
-function TGList.Implode(Separator: string; Converter: TGListStringConverter): string;
+function TGList.Implode(Separator: string; Converter: TGListToStringConverter): string;
 var
   I: TGListIndex;
@@ -384 +385 @@
     I := I + 1;
   end;
+end;
+
+procedure TGList.Explode(Text, Separator: string; Converter: TGListFromStringConverter; SlicesCount: Integer = -1);
+begin
+  Clear;
+  while (Pos(Separator, Text) > 0) and
+  ((Count < (SlicesCount - 1)) or (SlicesCount = -1)) do begin
+    Add(Converter(Copy(Text, 1, Pos(Separator, Text) - 1)));
+    System.Delete(Text, 1, Pos(Separator, Text) + Length(Separator) - 1);
+  end;
+  Add(Converter(Text));
 end;
 

Generics/TemplateGenerics/Generic/GenericObjectList.inc

@@ -5 +5 @@
 {$DEFINE TGList := TGObjectListList}
 {$DEFINE TGListSortCompare := TGObjectListSortCompare}
-{$DEFINE TGListStringConverter := TGObjectListStringConverter}
+{$DEFINE TGListToStringConverter := TGObjectListToStringConverter}
+{$DEFINE TGListFromStringConverter := TGObjectListFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -38 +39 @@
 {$DEFINE TGList := TGObjectListList}
 {$DEFINE TGListSortCompare := TGObjectListSortCompare}
-{$DEFINE TGListStringConverter := TGObjectListStringConverter}
+{$DEFINE TGListToStringConverter := TGObjectListToStringConverter}
+{$DEFINE TGListFromStringConverter := TGObjectListFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericQueue.inc

@@ -5 +5 @@
 {$DEFINE TGList := TGQueueList}
 {$DEFINE TGListSortCompare := TGQueueSortCompare}
-{$DEFINE TGListStringConverter := TGQueueStringConverter}
+{$DEFINE TGListToStringConverter := TGQueueToStringConverter}
+{$DEFINE TGListFromStringConverter := TGQueueFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -39 +40 @@
 {$DEFINE TGList := TGQueueList}
 {$DEFINE TGListSortCompare := TGQueueSortCompare}
-{$DEFINE TGListStringConverter := TGQueueStringConverter}
+{$DEFINE TGListToStringConverter := TGQueueToStringConverter}
+{$DEFINE TGListFromStringConverter := TGQueueFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericSet.inc

@@ -5 +5 @@
 {$DEFINE TGList := TGSetList}
 {$DEFINE TGListSortCompare := TGSetSortCompare}
-{$DEFINE TGListStringConverter := TGSetStringConverter}
+{$DEFINE TGListToStringConverter := TGSetToStringConverter}
+{$DEFINE TGListFromStringConverter := TGSetFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -37 +38 @@
 {$DEFINE TGList := TGSetList}
 {$DEFINE TGListSortCompare := TGSetSortCompare}
-{$DEFINE TGListStringConverter := TGSetStringConverter}
+{$DEFINE TGListToStringConverter := TGSetToStringConverter}
+{$DEFINE TGListFromStringConverter := TGSetFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericStack.inc

@@ -5 +5 @@
 {$DEFINE TGList := TGStackList}
 {$DEFINE TGListSortCompare := TGStackSortCompare}
-{$DEFINE TGListStringConverter := TGStackStringConverter}
+{$DEFINE TGListToStringConverter := TGStackToStringConverter}
+{$DEFINE TGListFromStringConverter := TGStackFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -38 +39 @@
 {$DEFINE TGList := TGStackList}
 {$DEFINE TGListSortCompare := TGStackSortCompare}
-{$DEFINE TGListStringConverter := TGStackStringConverter}
+{$DEFINE TGListToStringConverter := TGStackToStringConverter}
+{$DEFINE TGListFromStringConverter := TGStackFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}

Generics/TemplateGenerics/Generic/GenericTree.inc

@@ -7 +7 @@
 {$DEFINE TGList := TGTreeNodeList}
 {$DEFINE TGListSortCompare := TGTreeSortCompare}
-{$DEFINE TGListStringConverter := TGTreeStringConverter}
+{$DEFINE TGListToStringConverter := TGTreeToStringConverter}
+{$DEFINE TGListFromStringConverter := TGTreeFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -43 +44 @@
 {$DEFINE TGList := TGTreeNodeList}
 {$DEFINE TGListSortCompare := TGTreeSortCompare}
-{$DEFINE TGListStringConverter := TGTreeStringConverter}
+{$DEFINE TGListToStringConverter := TGTreeToStringConverter}
+{$DEFINE TGListFromStringConverter := TGTreeFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}