mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 06:29:25 +02:00
24 lines
420 B
ObjectPascal
24 lines
420 B
ObjectPascal
Program ex13;
|
|
|
|
{
|
|
Program to demonstrate the TStream.ReadStr TStream.WriteStr functions
|
|
}
|
|
|
|
Uses objects;
|
|
|
|
Var P : PString;
|
|
L : String;
|
|
S : PStream;
|
|
|
|
begin
|
|
L:='Constant string line';
|
|
Writeln ('Writing to stream : "',L,'"');
|
|
S:=New(PMemoryStream,Init(100,10));
|
|
S^.WriteStr(@L);
|
|
S^.Seek(0);
|
|
P:=S^.ReadStr;
|
|
L:=P^;
|
|
DisposeStr(P);
|
|
DisPose (S,Done);
|
|
Writeln ('Read from stream : "',L,'"');
|
|
end. |