home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / co.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  724 b   |  36 lines
  1. unit Co;
  2.  
  3. interface
  4. uses Def;
  5. procedure GetAlphaCodes;
  6. procedure PutAlphaCodes;
  7.  
  8. implementation
  9.  
  10. procedure GetAlphaCodes;
  11. var J,
  12.     I:        integer;
  13. begin
  14. TempFileLine := DataDrive + 'mailcode';
  15. assign(AlphaCodeFile,TempFileLine);
  16. reset(AlphaCodeFile);
  17. for I := 0 to DivisionTop do
  18.     for J := 0 to SubDivisionTop do
  19.         read( AlphaCodeFile, AlphaCode[I,J]);
  20. close(AlphaCodeFile);
  21. end;
  22.  
  23. procedure PutAlphaCodes;
  24. var J,I:integer;
  25. begin
  26. TempFileLine := DataDrive + 'mailcode';
  27. assign(AlphaCodeFile,TempFileLine);
  28. rewrite(AlphaCodeFile);
  29. for I := 0 to DivisionTop do
  30.     for J := 0 to SubDivisionTop do
  31.         write( AlphaCodeFile, AlphaCode[I,J]);
  32. close(AlphaCodeFile);
  33. end;
  34.  
  35. end.
  36.