home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w048 / 2.ddi / MSSRC.ARC / MSFILEIO.INC < prev    next >
Encoding:
Text File  |  1987-12-21  |  853 b   |  28 lines
  1. {                           MSFILEIO.INC
  2.                                MS 4.0
  3.                 Copyright (c) 1985, 87 by Borland International, Inc.         }
  4.  
  5.   procedure EdBlockWrite(var F : file; var Buf; Num : Word);
  6.     {-Write a block and check for errors}
  7.   var
  8.     BytesWritten : Word;
  9.  
  10.   begin                      {EdBlockWrite}
  11.     BlockWrite(F, Buf, Num, BytesWritten);
  12.     if EdFileerror then
  13.       Exit;
  14.     if BytesWritten <> Num then
  15.       EdErrormsg(240);
  16.   end;                       {EdBlockWrite}
  17.  
  18.   procedure EdBlockRead(var F : file; var Buf; Num : Word; var BytesRead);
  19.     {-Read a block and check for errors}
  20.   var
  21.     BR : Word absolute BytesRead;
  22.  
  23.   begin                      {EdBlockRead}
  24.     BlockRead(F, Buf, Num, BR);
  25.     if EdFileerror then
  26.       ;
  27.   end;                       {EdBlockRead}
  28.