home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BTP20.ZIP / VERSION.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-10  |  542 b   |  25 lines
  1. PROGRAM Version;               { (c) 1993 John C. Leon   last updated 6/8/93 }
  2.  
  3. {A demonstration of the base object, TRecMgr, in BTP.TPU, version 2.0}
  4.  
  5. {$IFDEF production} {$D-,R-,L-,S-} {$ENDIF}
  6.  
  7. USES
  8.    BTP;
  9.  
  10. VAR
  11.    RecordManager : TRecMgr;
  12.  
  13. BEGIN
  14.    if not IsBtrieveLoaded then
  15.       begin
  16.       writeln('Please load Btrieve before running this program.');
  17.       halt(1);
  18.       end;
  19.  
  20.    RecordManager.Init;
  21.    
  22.    writeln;
  23.    writeln('This computer is running Btrieve Version ', RecordManager.GetVersion,'.');
  24. END.
  25.