Changeset 221

Timestamp:

Mar 28, 2011, 9:22:05 AM (13 years ago)

Author:

george

Message:

• Added: AddNew and InsertNew methods can accept precreated object reference.

File:

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

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -17 +17 @@
   public
     OwnsObjects: Boolean;
-    function AddNew: TGListItem;
-    function AddInsertNew(Index: TGListIndex): TGListItem;
+    function AddNew(NewObject: TGListItem = nil): TGListItem;
+    function AddInsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem;
     procedure Delete(Index: TGListObjectIndex); override;
     procedure Clear; override;
@@ -51 +51 @@
 { TGListObject }
 
-function TGListObject.AddNew: TGListItem;
+function TGListObject.AddNew(NewObject: TGListItem = nil): TGListItem;
 begin
-  Result := TGListItem.Create;
+  if Assigned(NewObject) then Result := NewObject
+    else Result := TGListItem.Create;
   Add(Result);
 end;
 
-function TGListObject.AddInsertNew(Index: TGListIndex): TGListItem;
+function TGListObject.AddInsertNew(Index: TGListIndex;
+  NewObject: TGListItem = nil): TGListItem;
 begin
-  Result := TGListItem.Create;
+  if Assigned(NewObject) then Result := NewObject
+    else Result := TGListItem.Create;
   Insert(Index, Result);
 end;