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

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.

File:

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

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;