home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a006 / 1.ddi / PASEXAM.ZIP / GETDEF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-11  |  1.2 KB  |  35 lines
  1. program GetDef;
  2. uses PXEngine;
  3.  
  4. var   PxErr: Integer;
  5.       sortTable: Pointer;
  6.       MaxSwapsizevar,
  7.       MaxTableHandlesvar,
  8.       MaxRecBufsvar,
  9.       MaxLockHandlesvar,
  10.       MaxFileHandlesvar: Integer;
  11.  
  12. begin
  13.   PX(PXSetDefaults(MaxSwapSize, MaxTableHandles, PxDefault,
  14.             MaxLockHandles, MaxFileHandles, DefSortOrder));
  15.  
  16.   (* Retrieve the current defaults. *)
  17.   PxErr := PXGetDefaults(MaxSwapsizevar, MaxTableHandlesvar, MaxRecBufsvar,
  18.                MaxLockHandlesvar, MaxFileHandlesvar, sortTable);
  19.   if PxErr <> PxSuccess then
  20.     Writeln(PxErrMsg(PxErr))
  21.   else begin
  22.        Writeln('Swap Size: ', MaxSwapsizevar);
  23.        Writeln('Table Handles: ', MaxTableHandlesvar);
  24.        Writeln('Record Buffers: ', MaxRecBufsvar);
  25.        Writeln('Lock Handles: ', MaxLockHandlesvar);
  26.        Writeln('File Handles: ', MaxFileHandlesvar);
  27.        write  ('Sort order: ');
  28.        if sortTable = DefSortOrder then Writeln('System Default')
  29.        else if sortTable = SortOrderAscii then Writeln('ascii')
  30.        else if sortTable = SortOrderIntl then Writeln('international')
  31.        else if sortTable = SortOrderNorDan then Writeln('Norwegian/Danish')
  32.        else if sortTable = SortOrderSwedFin then Writeln('Swedish/Finish');
  33.        end;
  34. end.
  35.