Sign in Join
FPDoc Onlineexperiment

TStream.Get function

Member of TStreamIn unit Objects

Read an object definition from the stream.

Declaration

pascal
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, Status is set, and NIL is returned.

See also

Example: ex9

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

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.