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

Timestamp:

Mar 6, 2011, 6:44:23 PM (14 years ago)

Author:

george

Message:

• Added: Generic Matrix class methods enhacement.

Location:

Generics/TemplateGenerics/Generic

Files:

• . (modified) (1 prop)
• GenericList.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -49 +49 @@
     function Remove(Item: TGListItem): TGListIndex;
     procedure Reverse;
+    procedure Replace(Index: TGListIndex; Source: TGList);
     procedure Sort(Compare: TGListSortCompare);
     procedure SetArray(Values: TGListItemArray);
@@ -71 +72 @@
 
 { TGList }
+
+procedure TGList.Replace(Index: TGListIndex; Source: TGList);
+var
+  I: TGListIndex;
+begin
+  I := 0;
+  while I < Source.Count do begin
+    Items[Index + I] := Source[I];
+    I := I + 1;
+  end;
+end;
 
 function TGList.GetCapacity: TGListIndex;