Unit dnPxMask

Classes

EPxMaskError - **************************************************************************** Copyright © 1997/98 Dieter Nöth version : 2.
TControlPxMask -
TPxComboBox -
TPxMask - * Base class for handling Paradox masks
TPxMaskEdit -

Functions

HasPxMask - * returns TRUE if Control has a published property PxMask
PxMaskCheckInput - * aMask : ParadoxMask (no syntax checks) Input : string to be checked AutoFill : if true then Input will automatically be completed returns position of error in Input, if any: 0 = OK
PxMaskCheckSyntax - * check syntax of supplied mask, if an exception is raised then ErrorPos > 0; removes any trailing blanks and illegal commas: '[a,b,,c] ' -> '[a,b,c]'
PxMaskValidate - * aMask : ParadoxMask (no syntax checks) Input : string to be checked returns position of error in Input, or length(Input), if not complete

Types

TPxMaskState
TValidChangedEvent

Constants

Variables


Functions


function HasPxMask(Control: TPersistent; var PxMask: TPxMask) : boolean;

* returns TRUE if Control has a published property PxMask

function PxMaskCheckInput(const aMask: string; var Input: string; AutoFill: Boolean): integer;

* aMask : ParadoxMask (no syntax checks) Input : string to be checked AutoFill : if true then Input will automatically be completed returns position of error in Input, if any: 0 = OK

procedure PxMaskCheckSyntax(var aMask: string; var ErrorPos: integer);

* check syntax of supplied mask, if an exception is raised then ErrorPos > 0; removes any trailing blanks and illegal commas: '[a,b,,c] ' -> '[a,b,c]'

function PxMaskValidate(const aMask: string; const Input: string): integer;

* aMask : ParadoxMask (no syntax checks) Input : string to be checked returns position of error in Input, or length(Input), if not complete

Types


TPxMaskState = set of ( pxReEnter, pxSending, pxValid, pxModified,
                          pxNoValidation, pxStored, pxMaskFromParadox )

TValidChangedEvent = procedure( Sender: TControlPxMask;
                                  EditControl: TWinControl;
                                  TextValid: boolean) of object

Constants


Variables