Category : Pascal Source Code
Archive   : PASS_ALL.ZIP
Filename : TI312.ASC

PRODUCT : TURBO PASCAL DATABASE TOOLBOX NUMBER : 312
VERSION : 1.01x
OS : ALL
DATE : June 27, 1986 PAGE : 1/2
TITLE : UPDATE FROM VERSION 1.01x to 1.21x




The following modifications update the Turbo Database Toolbox
from version 1.01x to 1.21x. Note that all modifications are made
to the file ACCESS.BOX.

1. In the procedure TaIOcheck in the file ACCESS.BOX make the
following change:

Change from:
.
.
I := 0;
while Ord(TaName[I]) <> 0 do
begin
.
.

Change to:
.
.
I := 1; { Ver. 1.21x modification }
while Ord(TaName[I]) <> 0 do
begin
.
.

2. In the procedure GetRec in the file ACCESS.BOX make the
following change:

Change from:
.
.
Seek(DatF.F,R);
BlockRead(DatF.F,Buffer,1);
.
.

Change to:
.
.
Seek(DatF.F,R);
IOstatus := IOresult; { Ver. 1.21x addition }
TaIOcheck(DatF,R); { Ver. 1.21x addition }
BlockRead(DatF.F,Buffer,1);














PRODUCT : TURBO PASCAL DATABASE TOOLBOX NUMBER : 312
VERSION : 1.01x
OS : ALL
DATE : June 27, 1986 PAGE : 2/2
TITLE : UPDATE FROM VERSION 1.01x to 1.21x




.
.

3. In the procedure PutRec in the file ACCESS.BOX make the
following change:

Change from:
.
.
Seek(DatF.F,R);
BlockWrite(DatF.F,Buffer,1);
.
.

Change to:
.
.
Seek(DatF.F,R);
IOstatus := IOresult; { Ver. 1.21x addition }
TaIOcheck(DatF,R); { Ver. 1.21x addition }
BlockWrite(DatF.F,Buffer,1);
.
.