TPxTable -
LoadParadoxValChecks -
BoolArray
SChangeTableLevel
SFieldMaxError
SFieldMinError
SFieldMinMaxError
SFieldValueError
SNow
SToday
procedure LoadParadoxValChecks(Table: TTable);
BoolArray = packed array[0..DBIMAXFLDSINKEY - 1] of wordBool;
SChangeTableLevel = 'Changing table level may take some time. Continue?'
SFieldMaxError = 'A value no more than ''%s'' is expected'
SFieldMinError = 'A value no less than ''%s'' is expected'
SFieldMinMaxError = 'The allowed range is ''%s'' to ''%s'''
SFieldValueError = '''%s'' is not a valid value for field ''%s'':'#13
SNow = 'NOW'
SToday = 'TODAY'
****************************************************************************
Copyright © 1997/98 Dieter Nöth
version : 2.01
date : 11.04.1998
description:
Enhanced TTable which loads Paradox masks defined (with DBD) on table level
or from a corresponding INI-file.
Validates entries against Paradox Min/Max checks.
1.03 Added:
property TableLevel: integer;(public) sets TableLevel for Paradox/DBase/FoxPro-tables
(this is an example how to use dnDBUtil.ChangeTableParams)
allowed values (from BDE.INT):
const
TBLLEVEL3 = 3; { Paradox level 3 and dBASE level 3+ }
TBLLEVEL4 = 4; { Paradox level 4 and dBASE level 4 }
TBLLEVEL5 = 5; { Paradox level 5 and dBASE/Win }
TBLLEVEL7 = 7; { Paradox level 7 and dBASE level 7 }
FOXLEVEL25 = 25; { Fox Table (Ver 2.5) }
procedure AddIndexDescending(const Name, Fields: string; Options: TIndexOptions;
const Descending : Array of WordBool);
Like Borland's AddIndex, but Indices may be descending/ascending at
field level (works only with Level 7 tables --> prop TableLevel).
e.g. AddIndexDescending('NewIndex', 'Field1;Field2;Field3',
[ixUnique, ixDescending, ixCaseInsensitive], [false, true, false]);
creates Index with Field1 asc, Field2 desc, Field3 asc.
Don't forget to include ixDescending in Options...
Hint: You can't use prop IndexFieldNames to switch to this kind of index
(exception SNoIndexForFields), use IndexName instead.
*) {$I dnInc.INC