home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB21.ZIP / PACKTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-22  |  802 b   |  38 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. Program PackTest;
  4.  
  5. Uses Crt,TPDB;
  6.  
  7. Var
  8.    H : Integer;
  9.  
  10.  
  11. begin
  12.      DBOpenFile('packtest.dbf');
  13.      If TotalRecs>=500 then Zap;
  14.      ClrScr;
  15.      Writeln('Appending 1000 records.....');
  16.      FillRecs(1000);
  17.      Writeln('Deleting 500 records....');
  18.      For H := 1 to 1000 do
  19.      begin
  20.           GetDBRec(H);
  21.           If H mod 2 = 0 then
  22.           begin
  23.           Repl(1,'Deleted.');
  24.           Mark;
  25.           end
  26.           else
  27.           Repl(1,'Undeleted.');
  28.           PutDBRec(H);
  29.      end;
  30.      CloseDBFile;
  31.      DBOpenFile('packtest.dbf');
  32.      Writeln('Packing....');
  33.      Pack;
  34.      Writeln('500 undeleted records remain.');
  35.      Writeln;
  36.      Writeln('TPDB Version 1.3');
  37.      CloseDBFile;
  38. end.