TCollection.DeleteAll
Delete all elements from the collection. Objects are not destroyed.
Declaration
Source position: objects.pp line 445
default
procedure DeleteAll;
Description
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.
Errors
None.
See also
| Name | Description |
|---|---|
| TCollection.Delete | Delete an item from the collection, but does not destroy it. |
| TCollection.FreeAll | Release all objects from the collection. |
Example
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.