mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 11:11:30 +01:00
25 lines
578 B
ObjectPascal
25 lines
578 B
ObjectPascal
Program ex14;
|
|
|
|
{ Program to demonstrate the TStream.Close method }
|
|
|
|
Uses Objects;
|
|
|
|
Var L : String;
|
|
P : PString;
|
|
S : PDosStream; { Only one with Close implemented. }
|
|
|
|
begin
|
|
L:='Some constant string';
|
|
S:=New(PDosStream,Init('test.dat',stcreate));
|
|
Writeln ('Writing "',L,'" to stream with handle ',S^.Handle);
|
|
S^.WriteStr(@L);
|
|
S^.Close;
|
|
Writeln ('Closed stream. File handle is ',S^.Handle);
|
|
S^.Open (stOpenRead);
|
|
P:=S^.ReadStr;
|
|
L:=P^;
|
|
DisposeStr(P);
|
|
Writeln ('Read "',L,'" from stream with handle ',S^.Handle);
|
|
S^.Close;
|
|
Dispose (S,Done);
|
|
end. |