TCollection.Load
Initialize a new collection and load collection from a stream.
Declaration
Source position: objects.pp line 436
default
constructor Load(var S: TStream);
Description
Load initializes a new instance of a collection. It reads from stream S the item count, the item limit count, and the increase size. After that, it reads the specified number of items from the stream.
Errors
Errors returned can be those of GetItem .
See also
| Name | Description |
|---|---|
| TCollection.Done | Clean up collection, release all memory. |
| TCollection.GetItem | Read one item off the stream. |
| TCollection.Init | Instantiate a new collection. |
Example
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.