home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / ft.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  503 b   |  28 lines
  1. unit FT;
  2.  
  3. interface
  4. uses Def;
  5. procedure GetFileTop;
  6. procedure PutFileTop;
  7.  
  8. implementation
  9.  
  10. procedure GetFileTop;
  11. begin
  12. TempFileLine := concat(DataDrive,'mailtop');
  13. assign(IntFile,TempFileLine);
  14. reset(IntFile);
  15. read(IntFile,FileTop);
  16. read(IntFile,SortTop);
  17. close(IntFile);
  18. end;
  19.  
  20. procedure PutFileTop;
  21. begin
  22. TempFileLine := concat(DataDrive,'mailtop');
  23. assign(IntFile,TempFileLine); rewrite(IntFile);
  24. write(IntFile,FileTop);  write(IntFile,SortTop); close(IntFile);
  25. end;
  26.  
  27. end.
  28.