home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI189.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  3.4 KB  |  119 lines
  1. PRODUCT : TURBO DATABASE TOOLBOX     NUMBER : 189
  2. VERSION : 1.00x
  3.      OS : MS-DOS, CP/M-86, CP/M-80
  4.    DATE : July 14, 1986
  5.  
  6.   TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  7.  
  8. This  handout describes the code modifications that  upgrade  the 
  9. Turbo  Database Toolbox to version 1.01.   Turbo Database Toolbox 
  10. is  provided  in source code (except for GINST).   You  can  make 
  11. these changes directly to the source code.  
  12.  
  13. It has been discovered that the serial numbers on Turbo  Database 
  14. Toolbox  diskettes  are  not completely  reliable  indicators  of 
  15. whether these fixes have been incorporated.   To be safe,  take a 
  16. few minutes to review your copy of the Turbo Database Toolbox and 
  17. determine which, if any, of the following fixes are necessary.  
  18.  
  19. The  Turbo  Database Toolbox has been released as  Version  1.00, 
  20. Version 1.01, and Version 3.00.  Generally, the changes described 
  21. below will update Version 1.00 to Version 1.01.  Again, look your 
  22. Version   1.01  over  and  verify  that  these  fixes  have  been 
  23. implemented. 
  24.  
  25. If  you have Version 3.00 of Turbo Database Toolbox,  the changes 
  26. to ACCESS.BOX (or ACCESS3.BOX) have been incorporated along  with 
  27. other changes relating to Turbo Pascal,  Version 3.0).   However, 
  28. you  should look at the changes below that pertain to other files 
  29. in the Turbo Database Toolbox.
  30.  
  31.  
  32. A. GENERAL CHANGES
  33.  
  34.    If you make  the changes listed below to Version       1.00 of    
  35. the Turbo Database Toolbox,  change the headers of ACCESS.BOX,       
  36. GETKEY.BOX, ADDKEY.BOX, and DELKEY.BOX to say:
  37.  
  38.    "TURBO-Access Version 1.01" and "Copyright (C) 1984, 85."
  39.  
  40. B. CHANGES TO ACCESS.BOX
  41.  
  42.    Add lines 1) and 2) in the following two places: 
  43.  
  44.    Immediately after the "Assign(...)"  in procedure MakeFile;
  45.    Immediately after the "Assign(...)"  in procedure OpenFile:
  46.  
  47.    1) IOstatus:=IOresult;
  48.    2) TaIOcheck(DatF, 0);
  49.  
  50.    Add  the  following  line immediately after  "PutRec(...)"  in    
  51. procedure CloseIndex:
  52.  
  53.    Updated := false;
  54.  
  55.    Note:  Without  the  above change,  an index file  can  become 
  56.           corrupted  if  you close an index file, and  then  open 
  57.           another while in the middle of your program.
  58.  
  59. C. CHANGES TO ADDKEY.BOX
  60.  
  61.    In the very last three lines of the file, change:
  62.  
  63.    FROM:         end;
  64.                end;
  65.              end;
  66.  
  67.    TO:           end;
  68.                  PP := 0;
  69.                end;
  70.              end;
  71.  
  72. D. CHANGES TO DELKEY.BOX
  73.  
  74.    In the very last four lines of the file, change:
  75.  
  76.    FROM:           end;
  77.                  end;
  78.                end;
  79.              end;
  80.  
  81.    TO:             end;
  82.                  end;
  83.                  PP := 0;
  84.                end;
  85.              end;
  86.  
  87. E. CHANGES TO SORT.BOX
  88.  
  89.    About  17  lines after the main BEGIN of procedure  QuickSort, 
  90.    change:
  91.  
  92.    FROM:     M := (I+J) Div 2;
  93.  
  94.    TO:       M := (I+J) Shr 1;
  95.           
  96.  
  97.    Note:  This  is   not  just for efficiency,  the old  "Div  2"           
  98. version  can  cause an arithmetic run-time  error  when           
  99. sorting large files.
  100.  
  101.  
  102.  
  103.    Add  the following variable declaration to the VAR section  of      
  104. both  main programs (pages 71,  75,  78,  and 82 of the  Turbo    
  105. Database Toolbox manual).
  106.  
  107.           x : integer;
  108.  
  109.  
  110.           WriteLn(TurboSort(SizeOf(CustRec)));
  111.  
  112.    with the following TWO lines:
  113.  
  114.           x:=TurboSort(SizeOf(CustRec));
  115.           WriteLn(x);
  116.  
  117.  
  118.  
  119.