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

# TStream.Get

Read an object definition from the stream.

## Declaration

Source position: objects.pp line 287

`function TStream.Get: PObject;`

## Description

Get reads an object definition from a stream, and returns a pointer to an instance of this object.

## Errors

On error, TStream.Status is set, and NIL is returned.

## See also

TStream.Put |  | Write an object to the stream.

## Example

    Program ex9;

    { Program to demonstrate TStream.Get and TStream.Put }

    Uses Objects,MyObject;  { Definition and registration of TMyObject}

    Var Obj : PMyObject;
        S : PStream;

    begin
      Obj:=New(PMyObject,Init);
      Obj^.SetField($1111) ;
      Writeln ('Field value : ',Obj^.GetField);
      { Since Stream is an abstract type, we instantiate a TMemoryStream }
      S:=New(PMemoryStream,Init(100,10));
      S^.Put(Obj);
      Writeln ('Disposing object');
      S^.Seek(0);
      Dispose(Obj,Done);
      Writeln ('Reading object');
      Obj:=PMyObject(S^.Get);
      Writeln ('Field Value : ',Obj^.GetField);
      Dispose(Obj,Done);
    end.