[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Read an object definition from the stream.
Source position: objects.pp line 278
Get reads an object definition from a stream, and returns a pointer to an instance of this object.
On error, TStream.Status is set, and NIL is returned.
|
Write an object to the stream. |
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.
lazarus-ccr.sourceforge.net |