home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB21.ZIP / DEMO3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-22  |  778 b   |  40 lines
  1. {$A+,B+,D-,E+,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3.  
  4. Program Demo3;
  5.  
  6. Uses Crt,TPDB;
  7.  
  8. Var
  9.     TestStr : String;
  10.     Number,Num : Real;
  11.         J : LongInt;
  12.  
  13. begin
  14.     ClrScr;
  15.     DBOpenFile('demo3.dbf');
  16.     UCKey := True;
  17.         MakeDBIndex('test.ndx',15,Duplicates);
  18.     OpenDBIndex('test.ndx',15,Duplicates);
  19.         For J := 1 to TotalRecs do
  20.         begin
  21.              GetDBRec(J);
  22.              AddDBKey(Upper(RTrim(LTrim(FieldToStr(1)))));
  23.         end;
  24.         CloseDBIndex;
  25.         DBReset;
  26.         OpenDBIndex('test.ndx',15,Duplicates);
  27.     Find('ADAMS');
  28.     Display;
  29.     NextDBKey(FieldToStr(1));
  30.     Display;
  31.     Find('SMITH');
  32.     Display;
  33.         NextDBKey(FieldToStr(1));
  34.     Display;
  35.     PrevDBKey(FieldToStr(1));
  36.     Display;
  37.     CloseDBFile;
  38.     CloseDBIndex;
  39. end.
  40.