Changeset 72 for Generics/TemplateGenerics/Generic/ListImplementation.tpl

Timestamp:

Oct 28, 2010, 4:52:53 PM (14 years ago)

Author:

george

Message:

• Added: Generic class TGDictionary and TGPair. Specialized class TDictionaryString.

File:

• Generics/TemplateGenerics/Generic/ListImplementation.tpl (modified) (4 diffs)

Generics/TemplateGenerics/Generic/ListImplementation.tpl

@@ -118 +118 @@
 begin
   Result := 0;
-  while (Result < FCount) and (FItems[Result] <> Item) do
+  while (Result < FCount) and CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TListItem)) do
     Result := Result + 1;
   if Result = FCount then Result := -1;
@@ -191 +191 @@
 end;
 
-procedure TGList.Swap(Index1, Index2: TListIndex);
-var
-  Temp: TListItem;
-begin
-  Temp := Items[Index1];
-  Items[Index1] := Items[Index2];
-  Items[Index2] := Temp;
-end;
-
 function TGList.Remove(Item: TListItem): TListIndex;
 begin
@@ -230 +221 @@
   I := 0;
   while I < (Count div 2) do begin
-    Swap(I, Count - 1 - I);
+    Exchange(I, Count - 1 - I);
     I := I + 1;
   end;
@@ -241 +232 @@
 end;
 
-procedure TGList.SetArray(Values: array of TListItem);
-var
-  I: TListIndex;
-begin
-  Clear;
+procedure TGList.AddArray(Values: array of TListItem);
+var
+  I: TListIndex;
+begin
   I := 0;
   while I <= High(Values) do begin