Reference for package '#rtl'

TStream.Get

Read an object definition from the stream.

Declaration

Source position: objects.pp line 313

default 
  function 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

Name Description
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.