3
{ Program to demonstrate the TCollection.Load method }
5
Uses Objects,MyObject; { For TMyObject definition and registration }
13
C:=New(PCollection,Init(100,10));
16
M:=New(PMyObject,Init);
20
Writeln ('Inserted ',C^.Count,' objects');
21
S:=New(PMemorySTream,Init(1000,10));
27
Writeln ('Read ',C^.Count,' objects from stream.');
b'\\ No newline at end of file'