home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / ret.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  643 b   |  33 lines
  1. unit RET;
  2.  
  3. interface
  4. uses Def;
  5. procedure ReadReturn;
  6. procedure WriteReturn;
  7.  
  8. implementation
  9.  
  10. procedure ReadReturn;
  11. var TempFile:         file of MainRecordType;
  12.     Err:              integer;
  13. begin
  14. assign(TempFile,DataDrive + 'return.dat');
  15. {$I-}   reset(TempFile);
  16. {$I+}   Err := ioresult;
  17. {$I-}   read(TempFile,ReturnAddress);
  18. {$I+}   Err := ioresult;
  19. {$I-}   close(TempFile);
  20. {$I+}   Err := ioresult;
  21. end;
  22.  
  23. procedure WriteReturn;
  24. var TempFile:             file of MainRecordType;
  25. begin
  26. assign(TempFile,DataDrive + 'return.dat');
  27. rewrite(TempFile);
  28. write(TempFile,ReturnAddress);
  29. close(TempFile);
  30. end;
  31.  
  32. end.
  33.