home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB30.ZIP / PACKTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-03  |  798 b   |  39 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.     Test : ^DBF;
  10.  
  11.  
  12. begin
  13.       NEW(Test,Init('packtest.dbf'));
  14.       If Test^.TotalRecs>=500 then Test^.Zap;
  15.      ClrScr;
  16.      Writeln('Appending 1000 records.....');
  17.       Test^.FillRecs(1000);
  18.      Writeln('Deleting 500 records....');
  19.      For H := 1 to 1000 do
  20.      begin
  21.              Test^.GetDBRec(H);
  22.           If H mod 2 = 0 then
  23.           begin
  24.              Test^.Repl(1,'Deleted.');
  25.              Test^.Mark;
  26.           end
  27.           else
  28.              Test^.Repl(1,'Undeleted.');
  29.              Test^.PutDBRec(H);
  30.      end;
  31.       Test^.DBReset;
  32.      Writeln('Packing....');
  33.       Test^.Pack;
  34.      Writeln('500 undeleted records remain.');
  35.      Writeln;
  36.       Writeln('TPDB Version 3.0');
  37.       Test^.Done;
  38. end.
  39.