Changeset 325 for Generics

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.

Location:

Generics/TemplateGenerics

Files:

• Demo/Demo.lpi (modified) (7 diffs)
• Generic/GenericListObject.inc (modified) (1 diff)

Generics/TemplateGenerics/Demo/Demo.lpi

@@ -83 +83 @@
         <TopLine Value="47"/>
         <CursorPos X="20" Y="60"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -463 +463 @@
         <TopLine Value="11"/>
         <CursorPos X="34" Y="24"/>
-        <UsageCount Value="19"/>
+        <UsageCount Value="21"/>
         <Loaded Value="True"/>
       </Unit51>
@@ -583 +583 @@
         <Filename Value="../Specialized/SpecializedStream.pas"/>
         <UnitName Value="SpecializedStream"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <TopLine Value="106"/>
         <CursorPos X="48" Y="107"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit66>
@@ -623 +622 @@
       <Unit71>
         <Filename Value="../Generic/GenericStream.inc"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="13" Y="12"/>
-        <UsageCount Value="13"/>
+        <TopLine Value="40"/>
+        <CursorPos X="18" Y="20"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit71>
@@ -636 +636 @@
         <TopLine Value="891"/>
         <CursorPos X="18" Y="908"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="13"/>
         <Loaded Value="True"/>
       </Unit72>
@@ -645 +645 @@
         <TopLine Value="739"/>
         <CursorPos X="18" Y="750"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="13"/>
         <Loaded Value="True"/>
       </Unit73>
@@ -654 +654 @@
         <TopLine Value="8"/>
         <CursorPos X="34" Y="21"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit74>

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;