home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB13.ZIP / DEMO4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-13  |  1.1 KB  |  48 lines
  1. {$A+,B+,D-,E+,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3.  
  4. Program Demo4;
  5.  
  6. Uses Crt,TPDB;
  7.  
  8. begin
  9.     DBOpenFile('demo4.dbf');
  10.     If TotalRecs>0 then Zap;
  11.     ClrScr;
  12.     Writeln('Appending 1000 blank records to DEMO4.dbf....');
  13.     FillRecs(1000);
  14.     Writeln;
  15.     Writeln('Replacing Last Name field in each record....');
  16.     ReplEach(1,'Corll');
  17.     Writeln;
  18.     Writeln('Replacing Last Name field in record # 899..');
  19.     GetDBRec(899);
  20.     Repl(1,'Smith');
  21.     PutDBRec(899);
  22.     Writeln;
  23.     Writeln('Building index on last name field...');
  24.     BuildIndex('demo4.ndx',1,10,Duplicates);
  25.     OpenDBIndex('demo4.ndx',10,Duplicates);
  26.     Writeln;
  27.     Find('Smith');
  28.     If Found then Writeln('Found record for last name ''Smith''');
  29.     Writeln;
  30.    Writeln('Deleting record for last name ''Smith''');
  31.     Writeln;
  32.     Writeln('Deleting index key for last Name ''Smith''');
  33.     Mark;
  34.     DelDBKey(1);
  35.     Find('Smith');
  36.     Writeln;
  37.     If not Found then Writeln('Key has now been deleted.');
  38.     Writeln;
  39.     Writeln('Packing file....');
  40.     Pack;
  41.     Writeln;
  42.     Writeln('''Smith'' has now been deleted from DEMO4.dbf.');
  43.     Writeln;
  44.     Writeln('TPDB Version 1.3');
  45.     Zap;
  46.     CloseDBFile;
  47.     CloseDBIndex;
  48. end.