Changeset 112 for Generics/TemplateGenerics/Generic

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/Generic

Files:

• GenericDictionary.inc (modified) (2 diffs)
• GenericList.inc (modified) (6 diffs)
• GenericListObject.inc (modified) (2 diffs)
• GenericListString.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

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