home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / re.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  592 b   |  34 lines
  1. unit RE;
  2.  
  3. interface
  4. uses Def;
  5. procedure GetRec(var Entry: MainRecordType; RecordNumber: integer);
  6. procedure PutRec( Entry:    MainRecordType; RecordNumber: integer);
  7.  
  8. implementation
  9.  
  10. procedure GetRec;
  11. var Err:  integer;
  12. begin
  13. {$i-}
  14. seek(AddressFile,RecordNumber-1);
  15. read(AddressFile,Entry);
  16. {$i+}
  17. Err := ioresult;
  18. (* if (Err = 91) or (Err = 99) then
  19.    begin
  20.    close(AddressFile);
  21.    file_top := filesize(AddressFile);
  22.    sort_top := file_top;
  23.    end; *)
  24. end;
  25.  
  26. procedure PutRec;
  27. begin
  28. seek(AddressFile,RecordNumber-1);
  29. write(AddressFile,Entry);
  30. end;
  31.  
  32. end.
  33. 
  34.