home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / btree / btriev14 / version.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-10-27  |  417 b   |  19 lines
  1. PROGRAM Version;             { (c) 1991 John C. Leon   last updated 10/25/91 }
  2.  
  3. {A demonstration of the base object, TRecMgr, in BTP.TPU, version 1.4}
  4.  
  5. {$IFDEF production} {$D-,R-,L-,S-} {$ENDIF}
  6.  
  7. USES
  8.    BTP;
  9.  
  10. VAR
  11.    MyObj : PRecMgr;
  12.  
  13. BEGIN
  14.    MyObj := new(PRecMgr, Init);
  15.    writeln;
  16.    writeln('This computer is running Btrieve Version ', MyObj^.VersionString,'.');
  17.    dispose(MyObj, Done);
  18. END.
  19.