[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Delete all elements from the collection. Objects are not destroyed.
Source position: objects.pp line 410
procedure TCollection.DeleteAll; |
DeleteAll deletes all elements from the collection. It just sets the Count variable to zero. Contrary to FreeAll, DeletAll doesn't call the destructor of the objects.
None.
|
Release all objects from the collection. |
|
|
Delete an item from the collection, but does not destroy it. |
Program ex29; { Program to demonstrate the TCollection.DeleteAll method Compare with example 28, where FreeAll is used. } 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.'); C^.DeleteAll; Writeln ('Deleted all objects.'); Dispose(C,Done); end.
lazarus-ccr.sourceforge.net |