[Overview][Constants][Types][Classes][Procedures and functions][Variables] |
Initialize a new collection and load collection from a stream.
Source position: objects.pp line 402
constructor TCollection.Load( |
var S: TStream |
); |
Loadinitializes a new instance of a collection. It reads from stream Sthe item count, the item limit count, and the increase size. After that, it reads the specified number of items from the stream.
Errors returned can be those of GetItem.
|
Instantiate a new collection. |
|
|
Read one item off the stream. |
|
|
Clean up collection, release all memory. |
Program ex22; { Program to demonstrate the TCollection.Load method } Uses Objects,MyObject; { For TMyObject definition and registration } Var C : PCollection; M : PMyObject; I : Longint; S : PMemoryStream; begin C:=New(PCollection,Init(100,10)); For I:=1 to 100 do begin M:=New(PMyObject,Init); M^.SetField(100-I); C^.Insert(M); end; Writeln ('Inserted ',C^.Count,' objects'); S:=New(PMemorySTream,Init(1000,10)); C^.Store(S^); C^.FreeAll; Dispose(C,Done); S^.Seek(0); C^.Load(S^); Writeln ('Read ',C^.Count,' objects from stream.'); Dispose(S,Done); Dispose(C,Done); end.