home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a006 / 1.ddi / PASEXAM.ZIP / ERRMSG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-11  |  300 b   |  18 lines
  1. program ErrMsg;
  2. uses PXEngine;
  3.  
  4. var   PxErr: Integer;
  5.       TblHandle: TableHandle;
  6.  
  7. begin
  8.   PX(PXInit);
  9.  
  10.   (* Open a non-existing table *)
  11.   PxErr := PXTblOpen('ZZ:\TOP', TblHandle, 0, False);
  12.  
  13.   (* Print associated error message *)
  14.   Writeln(PXErrMsg(PxErr));
  15.  
  16.   PX(PXExit);
  17. end.
  18.