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

Timestamp:

Jun 29, 2012, 7:12:23 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Memory leak on TemplateGenerics TListObject items Count changed to lower value.

File:

• Generics/TemplateGenerics/Generic/GenericListObject.inc (modified) (3 diffs)

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -15 +15 @@
   private
     procedure Put(Index: TGListIndex; const AValue: TGListItem); override;
+    procedure SetCount(const AValue: TGListIndex); override;
   public
     OwnsObjects: Boolean;
@@ -20 +21 @@
     function InsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem;
     procedure Delete(Index: TGListObjectIndex); override;
-    procedure Clear; override;
     procedure Assign(Source: TGList); override;
     constructor Create; override;
@@ -85 +85 @@
 end;
 
-procedure TGListObject.Clear;
+procedure TGListObject.SetCount(const AValue: TGListIndex);
 var
   I: TGListObjectIndex;
 begin
   if OwnsObjects then begin
-    I := 0;
-    while I < Count do begin
+    I := FCount - 1;
+    while I >= AValue do begin
       FItems[I].Free;
-      I := I + 1;
+      I := I - 1;
     end;
   end;
-  inherited Clear;
+  inherited;
 end;