home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / BLX11.ZIP / TECHNIX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-21  |  343 b   |  18 lines
  1. program FileDemo;
  2. const
  3.   FileName = 'TEST.TXT';
  4. var
  5.   FileVar : Text;
  6.   InString : String;
  7. begin
  8.   Assign(FileVar,FileName);
  9.   Rewrite(FileVar);
  10.   WriteLn(FileVar,'Write this to a file');
  11.   Close(FileVar);
  12.   Assign(FileVar,FileName);
  13.   Reset(FileVar);
  14.   Readln(FileVar,InString);
  15.   Close(FileVar);
  16.   WriteLn(InString);
  17. end.
  18.