3
{ Program to demonstrate the TCollection.Delete method }
5
Uses Objects,MyObject; { For TMyObject definition and registration }
13
C:=New(PCollection,Init(120,10));
16
M:=New(PMyObject,Init);
20
Writeln ('Added 100 Items.');
22
While Count>0 do Delete(At(Count-1));
23
Writeln ('Freed all objects');
b'\\ No newline at end of file'