[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Objects' (#rtl)

# TCollection.Load

Initialize a new collection and load collection from a stream.

## Declaration

Source position: objects.pp line 401

`constructor TCollection.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

TCollection.Init |  | Instantiate a new collection.
TCollection.GetItem |  | Read one item off the stream.
TCollection.Done |  | Clean up collection, release all memory.

## 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.

Documentation generated on: Feb 26 2014