Changeset 90 for trunk/Packages/TemplateGenerics/Generic/GenericListObject.inc

Timestamp:

Sep 7, 2012, 6:45:53 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Aktualizace balíčku TemplateGenerics na novější verzi. Se starou nešel projekt správně přeložit.

File:

• trunk/Packages/TemplateGenerics/Generic/GenericListObject.inc (modified) (4 diffs)

trunk/Packages/TemplateGenerics/Generic/GenericListObject.inc

@@ -13 +13 @@
   // TGListObject<TListObjectIndex, TListObjectItem> = class(TGList)
   TGListObject = class(TGList)
-  private
+  protected
     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;
+    constructor Create; override;
     destructor Destroy; override;
   end;
@@ -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;
@@ -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;