[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Initialize a new collection and load collection from a stream.
Source position: objects.pp line 401
constructor TCollection.Load( |
var S: TStream |
); |
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 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.
lazarus-ccr.sourceforge.net |