Ignore:
Timestamp:
Mar 28, 2011, 9:11:05 AM (14 years ago)
Author:
george
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Generics/TemplateGenerics/Generic/GenericListObject.inc

    r112 r220  
    1717  public
    1818    OwnsObjects: Boolean;
     19    function AddNew: TGListItem;
     20    function AddInsertNew(Index: TGListIndex): TGListItem;
    1921    procedure Delete(Index: TGListObjectIndex); override;
    2022    procedure Clear; override;
     
    4850
    4951{ TGListObject }
     52
     53function TGListObject.AddNew: TGListItem;
     54begin
     55  Result := TGListItem.Create;
     56  Add(Result);
     57end;
     58
     59function TGListObject.AddInsertNew(Index: TGListIndex): TGListItem;
     60begin
     61  Result := TGListItem.Create;
     62  Insert(Index, Result);
     63end;
    5064
    5165procedure TGListObject.Assign(Source: TGList);
Note: See TracChangeset for help on using the changeset viewer.