Changeset 78 for Generics/TemplateGenerics/Generic/ListImplementation.tpl

Timestamp:

Oct 30, 2010, 6:39:12 PM (14 years ago)

Author:

george

Message:

• Added: Ability of TListObject to own items and be able to free them on deletion and list destruction.

File:

• Generics/TemplateGenerics/Generic/ListImplementation.tpl (modified) (3 diffs)

Generics/TemplateGenerics/Generic/ListImplementation.tpl

@@ -17 +17 @@
 begin
   Result := FItems[Index];
-end;
-
-function TGList.GetCount: TListIndex;
-begin
-  Result := FCount;
 end;
 
@@ -89 +84 @@
 end;
 
+procedure TGList.Contract;
+begin
+  if (Capacity > 256) and (FCount < Capacity shr 2) then
+  begin
+    Capacity := Capacity shr 1;
+  end;
+end;
+
 function TGList.Extract(Item: TListItem): TListItem;
 var
@@ -344 +347 @@
   FCount := FCount - 1;
   System.Move(FItems[Index + 1], FItems[Index], (FCount - Index) * SizeOf(TListItem));
-  // Shrink the list if appropriate
-  if (Capacity > 256) and (FCount < Capacity shr 2) then
-  begin
-    Capacity := Capacity shr 1;
-  end;
+  Contract;
 end;