Changeset 441 for Generics/TemplateGenerics/Generic/GenericListObject.inc

Timestamp:

Nov 19, 2012, 2:47:07 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Wrong memory inicialization in TListObject results in error during other object assignment.

File:

• Generics/TemplateGenerics/Generic/GenericListObject.inc (modified) (1 diff)

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -88 +88 @@
     end;
   end;
+  I := FCount;
   inherited;
+  // Nil newly allocated items
+  while I < AValue do begin
+    FItems[I] := nil;
+    I := I + 1;
+  end;
 end;