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

Timestamp:

Mar 28, 2011, 9:11:05 AM (14 years ago)

Author:

george

Message:

• Added: Functions AddNew and InsertNew to TListObject generic class.

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;
     procedure Delete(Index: TGListObjectIndex); override;
     procedure Clear; override;
@@ -48 +50 @@
 
 { TGListObject }
+
+function TGListObject.AddNew: TGListItem;
+begin
+  Result := TGListItem.Create;
+  Add(Result);
+end;
+
+function TGListObject.AddInsertNew(Index: TGListIndex): TGListItem;
+begin
+  Result := TGListItem.Create;
+  Insert(Index, Result);
+end;
 
 procedure TGListObject.Assign(Source: TGList);