- Timestamp:
- Mar 28, 2011, 9:22:05 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Generics/TemplateGenerics/Generic/GenericListObject.inc
r220 r221 17 17 public 18 18 OwnsObjects: Boolean; 19 function AddNew : TGListItem;20 function AddInsertNew(Index: TGListIndex ): TGListItem;19 function AddNew(NewObject: TGListItem = nil): TGListItem; 20 function AddInsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem; 21 21 procedure Delete(Index: TGListObjectIndex); override; 22 22 procedure Clear; override; … … 51 51 { TGListObject } 52 52 53 function TGListObject.AddNew : TGListItem;53 function TGListObject.AddNew(NewObject: TGListItem = nil): TGListItem; 54 54 begin 55 Result := TGListItem.Create; 55 if Assigned(NewObject) then Result := NewObject 56 else Result := TGListItem.Create; 56 57 Add(Result); 57 58 end; 58 59 59 function TGListObject.AddInsertNew(Index: TGListIndex): TGListItem; 60 function TGListObject.AddInsertNew(Index: TGListIndex; 61 NewObject: TGListItem = nil): TGListItem; 60 62 begin 61 Result := TGListItem.Create; 63 if Assigned(NewObject) then Result := NewObject 64 else Result := TGListItem.Create; 62 65 Insert(Index, Result); 63 66 end;
Note:
See TracChangeset
for help on using the changeset viewer.