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

Timestamp:

Feb 8, 2012, 1:05:59 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Error in writing same object to TListObject item cause freeing of object.

File:

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

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -75 +75 @@
 procedure TGListObject.Put(Index: TGListIndex; const AValue: TGListItem);
 begin
-  if OwnsObjects then FItems[Index].Free;
+  if OwnsObjects and (FItems[Index] <> AValue) then FItems[Index].Free;
   inherited Put(Index, AValue);
 end;