[Overview][Constants][Types][Classes][Procedures and functions][Variables] |
Delete an item from the collection, but does not destroy it.
Source position: objects.pp line 414
procedure TCollection.Delete( |
Item: Pointer |
); |
Deletedeletes Itemfrom the collection. It doesn't call the item's destructor, though. For this the Freecall is provided.
If the Itemis not in the collection, Errorwill be called with coIndexError.
|
Delete item at certain position. |
|
|
Free item from collection, calling it's destructor. |
Program ex31; { Program to demonstrate the TCollection.Delete method } Uses Objects,MyObject; { For TMyObject definition and registration } Var C : PCollection; M : PMyObject; I : Longint; begin Randomize; C:=New(PCollection,Init(120,10)); For I:=1 to 100 do begin M:=New(PMyObject,Init); M^.SetField(I-1); C^.Insert(M); end; Writeln ('Added 100 Items.'); With C^ do While Count>0 do Delete(At(Count-1)); Writeln ('Freed all objects'); Dispose(C,Done); end.