home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / TBASE551.ARJ / GETTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-20  |  747 b   |  29 lines
  1. uses Tbase, DbDate, dbedit , crt;
  2.  
  3. Var Name, Cost, Log : String;
  4.     mine : DataObject ;
  5.  
  6. Begin
  7.    clrscr;
  8.    SetEditColor(white, cyan);
  9.  
  10. Writeln('Memory available before dbase file open  : ', Memavail);
  11.    New( Mine, Init( 'Ddd.Dbf') ) ;
  12. Writeln('Memory available after dbase file opened : ', Memavail);
  13.  
  14.    MyGet(10,10, mine, 1 );  
  15.    Get(10,12, mine, 'cost');
  16.    Get(10,14, mine, 'Log') ;
  17.    Myget(10,16,mine, 4 ) ;              (* another Myget to get Date *)
  18. Writeln('Memory available after Editing assigned  : ', Memavail);
  19.  
  20.    Dbread;
  21.  
  22. Writeln(#13#10,'Memory available after Editing finished  : ', Memavail);
  23.  
  24.    Dispose( Mine , Done ) ;
  25.  
  26. Writeln('Memory available after dbase file closed : ', Memavail);
  27.  
  28. End.
  29.