home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a011 / 2.ddi / MPXBTRV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-09-08  |  388 b   |  16 lines
  1. {                                      }
  2. {   Interface to the Btrieve Record Manager                  }
  3. {                                      }
  4. type
  5.   STR128 = PACKED ARRAY[1..128] of CHAR;
  6.  
  7.  function btrv(fcn:Integer;
  8.            VAR cur_block  : STR128;
  9.            VAR data_buf   : STRING;
  10.            VAR data_len   : Integer;
  11.            VAR key_buf    : STRING;
  12.            key_number : Integer): Integer; External;
  13.  
  14. pragma Alias(btrv,'BTRV');
  15.  
  16.