|
| |
const
SortOrderAscii: Pointer = nil;
const
SortOrderIntl: Pointer = @SrtOrderIntl;
const
SortOrderNorDan: Pointer = @SrtOrderNorDan;
const
SortOrderSwedFin: Pointer = @SrtOrderSwedFin;
const
SortOrderNorDan4: Pointer = @SrtOrderNorDan4;
const
BLANKDATE: Longint = $80000000;
BLANKLONG: Longint = $80000000;
BLANKSHORT = $8000;
BLANKALPHA = '';
PXDEFAULT: Longint = 0; { use internal default value }
MaxTableHandles = 64; { maximum number of open }
{ tables allowed at a time }
DefTableHandles = 5; { default number of open }
{ tables allowed at a time }
MaxRecordHandles = 512; { maximum number of record }
{ buffers available }
DefRecordHandles = 10; { default number of record }
{ buffers available }
MaxLockHandles = 128; { maximum number of lock }
{ handles per table }
DefLockHandles = 32; { default number of lock }
{ handles per table }
MaxFileHandles = 255; { maximum number of DOS file }
{ handles to use }
MinFileHandles = 2; { minimum number of DOS file }
{ handles to use }
DefFileHandles = 10; { default number of DOS file }
{ handles to use }
DefSortOrder: Pointer = Ptr($0,$0); { default sort order (ASCII) }
{ Swap buffer size }
MaxSwapSize = 256; { maximum buffer size allowed (k) }
MinSwapSize = 8; { minimum buffer size allowed (k) }
DefSwapSize = 32; { default buffer size (k) }
{ Network types used in PXNetInit }
{ The type is made up of two sections: locking protocol, and a sharing }
{ specification indicating which tables are vulnerable to sharing and need }
{ to be protected with the locking protocol. }
{ The locking protocol and the sharing specification must be or'ed together.}
{ locking protocol - choose one of the following (PX40LOCKING is default) }
const
PX35LOCKING = 64; { locking protocol compatible with Paradox 3.5 }
PX40LOCKING = 0; { locking protocol compatible with Paradox 4.0 }
{ sharing specification - choose one of the following: }
const
LOCALSHARE = 32; { all tables can be shared (local and remote) }
{ e.g. from another Window or DOS shell. locking }
{ is needed on all tables }
NETSHARE = 2; { only tables on the net can be shared, tables }
{ on the local drive can be treated as private }
NOSHARE = 1; { all tables can be treated as private, no locking }
{ is needed - behave like PXInit }
{ The following network codes are provided strictly for compatibility with }
{ the Paradox Engine 2.0; it is no longer necessary to be explicit as to }
{ which network you are running on: }
const
NOTONNET = 1; { not on a network }
NOVELLNET = 2; { Novell }
THREECOMNET = 3; { 3Com }
THREEOPENNET = 4; { 3Com 3+Open }
OTHERNET = 5; { other: unknown DOS 3.1 compatible }
STARLANNET = 7; { Starlan }
BANYANNET = 8; { Banyan }
IBMPCNET = 9; { IBM PC }
DefUserName = ''; { use default username in PXNetInit() }
{ used in PXKeyAdd }
PRIMARY = 0; { primary index (key) }
SECONDARY = 1; { non-maintained secondary index }
INCSECONDARY = 2; { maintained secondary index }
{ used in PXSrchFld, PXSrchKey }
SEARCHFIRST = 0; { search from beginning of table }
SEARCHNEXT = 1; { search from next record in table }
CLOSESTRECORD = 2; { goto 'nearest' record if no match found }
{ Lock types }
{ used in PXNetFileLock, PXNetFileUnlock, PXNetTblLock, PXNetTblUnlock }
FL = 1; { full lock, no concurrency }
WL = 2; { write lock }
PWL = 3; { prevent write lock }
PFL = 4; { prevent full lock, full concurrency }
{ values used in functions operating on Blobs (Binary Large OBjects) }
PXBLOBREJECT = 0; { for use in PXBlobClose }
PXBLOBACCEPT = 1; { for use in PXBlobClose }
PXBLOBNEW = 0; { for use in PXBlobOpenWrite }
PXBLOBCOPY = 1; { for use in PXBlobOpenWrite }
{ commonly used constants }
Null: Longint = 0;
{ successful Engine function operation returns }
PXSUCCESS = 0;
{ values for Mode argument to PXTblCreateMode }
PARADOX35 = 0; { create Paradox 3.5 compatible tables }
PARADOX40 = 1; { create Paradox 4.0 compatible tables } |