home *** CD-ROM | disk | FTP | other *** search
- 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.