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

Timestamp:

Dec 23, 2010, 9:50:33 AM (14 years ago)

Author:

george

Message:

• Fixed: String type is reference counter thus have to be properly cleared in similar fashion to objects. Problem is caused by use of System.Move procedure where instance of strings are not reference count decremented. Introduced generic class TGListString which is used for common TListString class.

File:

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

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -26 +26 @@
     procedure AddArray(Values: array of TGListItem);
     procedure AddList(List: TGList);
-    procedure Assign(List: TGList);
+    procedure Assign(Source: TGList); virtual;
     procedure Clear; virtual;
     procedure Contract;
@@ -126 +126 @@
 end;
 
-procedure TGList.Assign(List: TGList);
+procedure TGList.Assign(Source: TGList);
 var
   I: Integer;
 begin
-  Count := List.Count;
+  Count := Source.Count;
   I := 0;
   while I < Count do begin
-    Items[I] := List[I];
+    Items[I] := Source[I];
     I := I + 1;
   end;