mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 17:29:28 +02:00
24 lines
597 B
ObjectPascal
24 lines
597 B
ObjectPascal
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. |