3
{ Program to demonstrate the TStream.Close method }
9
S : PDosStream; { Only one with Close implemented. }
12
L:='Some constant string';
13
S:=New(PDosStream,Init('test.dat',stcreate));
14
Writeln ('Writing "',L,'" to stream with handle ',S^.Handle);
17
Writeln ('Closed stream. File handle is ',S^.Handle);
22
Writeln ('Read "',L,'" from stream with handle ',S^.Handle);
b'\\ No newline at end of file'