Changeset 322 for Generics/NativeGenerics/Units/GenericList.pas

Timestamp:

Feb 8, 2012, 9:47:54 AM (13 years ago)

Author:

chronos

Message:

• Added: TGMemoryStream implementation.
• Added: Additional methods to TGList.

File:

• Generics/NativeGenerics/Units/GenericList.pas (modified) (4 diffs)

Generics/NativeGenerics/Units/GenericList.pas

@@ -38 +38 @@
     procedure AddArray(Values: array of TItem);
     procedure AddList(List: TGList<TItem>);
+    procedure AddListPart(List: TGList<TItem>; ItemIndex, ItemCount: TIndex);
     procedure Assign(Source: TGList<TItem>); virtual;
     procedure Clear; virtual;
@@ -48 +49 @@
     property First: TItem read GetFirst write SetFirst;
     procedure Fill(Start, Count: TIndex; Value: TItem);
-    function GetArray: TItemArray;
+    function GetArray(Index, ACount: TIndex): TItemArray;
+    procedure GetList(List: TGList<TItem>; Index, ACount: TIndex);
     function Implode(Separator: string; Converter: TToStringConverter): string;
     function IndexOf(Item: TItem; Start: TIndex = 0): TIndex;
@@ -161 +163 @@
 end;
 
-function TGList<TItem>.GetArray: TItemArray;
+function TGList<TItem>.GetArray(Index, ACount: TIndex): TItemArray;
 var
   I: Integer;
 begin
-  SetLength(Result, Count);
+  SetLength(Result, ACount);
   I := 0;
   while I < Count do begin
-    Result[I] := FItems[I];
-    I := I + 1;
-  end;
+    Result[I] := FItems[Index + I];
+    I := I + 1;
+  end;
+end;
+
+procedure TGList<TItem>.GetList(List: TGList; Index, ACount: TIndex);
+begin
+ List.Clear;
+ List.AddListPart(Self, Index, ACount);
 end;
 
@@ -506 +514 @@
 end;
 
+procedure TGList<TItem>.AddListPart(List: TGList; ItemIndex, ItemCount: TIndex);
+var
+  I: TIndex;
+  J: TIndex;
+begin
+  I := Count;
+  J := ItemIndex;
+  Count := Count + ItemCount;
+  while I < Count do begin
+    Items[I] := List[J];
+    I := I + 1;
+    J := J + 1;
+  end;
+end;
+
 procedure TGList<TItem>.Clear;
 begin