home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / TURBO_P / TPWPXENG.ZIP / TBLCREAT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-22  |  705 b   |  35 lines
  1. program TblCreat;
  2.  
  3. uses WinCrt, PXEngine;
  4.  
  5. type
  6.   NameString = pChar;
  7.  
  8. const TableName = 'Table';
  9.       NFields    = 5;
  10.  
  11.       Fields: Array[1..NFields] of NameString =
  12.                ('Numeric Field', 'Alpha Field', 'Date Field', 'Currency Field',
  13.                 'Short Field');
  14.       Types: Array[1..NFields] of NameString =
  15.                ('N', 'A50', 'D', '$', 'S');
  16.  
  17. var
  18.   PxErr: Integer;
  19.  
  20. procedure PX(Code : integer);
  21. begin
  22.   writeln(PXErrMsg(Code));
  23. end;
  24.  
  25. begin
  26.   PX(PXWinInit('MyApp', pxShared));
  27.  
  28.   (* Create a new table *)
  29.   PxErr := PXTblCreate(TableName, NFields, Fields, Types);
  30.   if PxErr <> PxSuccess then
  31.     Writeln(PxErrMsg(PxErr));
  32.  
  33.   PX(PXExit);
  34. end.
  35.