home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI312.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  1.6 KB  |  75 lines
  1. PRODUCT : TURBO PASCAL DATABASE TOOLBOX     NUMBER : 312
  2. VERSION : 1.01x
  3.      OS : ALL
  4.    DATE : June 27, 1986
  5.  
  6.   TITLE : UPDATE FROM VERSION 1.01x to 1.21x
  7.  
  8. The  following  modifications update the Turbo  Database  Toolbox 
  9. from version 1.01x to 1.21x. Note that all modifications are made 
  10. to the file ACCESS.BOX.
  11.  
  12. 1. In  the  procedure TaIOcheck in the file ACCESS.BOX  make  the    
  13. following change:
  14.  
  15.   Change from:
  16.         .
  17.         .
  18.       I := 0;
  19.       while Ord(TaName[I]) <> 0 do
  20.       begin
  21.         .
  22.         .
  23.  
  24.   Change to:
  25.         .
  26.         .
  27.       I := 1;   { Ver. 1.21x modification }
  28.       while Ord(TaName[I]) <> 0 do
  29.       begin
  30.         .
  31.         .
  32.  
  33. 2. In  the  procedure  GetRec in the file  ACCESS.BOX  make  the    
  34. following change:
  35.  
  36.    Change from:
  37.         .
  38.         .
  39.     Seek(DatF.F,R);
  40.     BlockRead(DatF.F,Buffer,1);
  41.         .
  42.         .
  43.  
  44.  
  45.    Change to:
  46.         .
  47.         .
  48.     Seek(DatF.F,R);
  49.     IOstatus := IOresult;          { Ver. 1.21x addition }
  50.     TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  51.     BlockRead(DatF.F,Buffer,1);
  52.         .
  53.         .
  54.  
  55. 3.  In  the   procedure PutRec in the file  ACCESS.BOX  make  the         
  56. following change:
  57.  
  58.    Change from:
  59.         .
  60.         .
  61.     Seek(DatF.F,R);
  62.     BlockWrite(DatF.F,Buffer,1);
  63.         .
  64.         .
  65.  
  66.    Change to:
  67.         .
  68.         .
  69.     Seek(DatF.F,R);
  70.     IOstatus := IOresult;          { Ver. 1.21x addition }
  71.     TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  72.     BlockWrite(DatF.F,Buffer,1);
  73.         .
  74.         .
  75.