Changeset 91 for Generics/TemplateGenerics/Generic/GenericList.inc

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.

File:

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

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;