paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use FVString in the interface part of the validate unit

Browse Source 
git-svn-id: branches/unicodekvm@48588 -
This commit is contained in:
nickysn 2021-02-10 13:28:33 +00:00
parent d659c731d8
commit 92334d86df
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/fv/src/validate.inc
View File

@ -128,11 +128,11 @@ TYPE
Status : Word; { Validator status }
Options: Word; { Validator options }
CONSTRUCTOR Load (Var S: TStream);
FUNCTION Valid(CONST S: String): Boolean;
FUNCTION IsValid (CONST S: String): Boolean; Virtual;
FUNCTION IsValidInput (Var S: String;
FUNCTION Valid(CONST S: FVString): Boolean;
FUNCTION IsValid (CONST S: FVString): Boolean; Virtual;
FUNCTION IsValidInput (Var S: FVString;
SuppressFill: Boolean): Boolean; Virtual;
FUNCTION Transfer (Var S: String; Buffer: Pointer;
FUNCTION Transfer (Var S: FVString; Buffer: Pointer;
Flag: TVTransfer): Word; Virtual;
PROCEDURE Error; Virtual;
PROCEDURE Store (Var S: TStream);
@ -145,13 +145,13 @@ TYPE
TYPE
TPXPictureValidator = OBJECT (TValidator)
Pic: PString; { Picture filename }
CONSTRUCTOR Init (Const APic: String; AutoFill: Boolean);
CONSTRUCTOR Init (Const APic: FVString; AutoFill: Boolean);
CONSTRUCTOR Load (Var S: TStream);
DESTRUCTOR Done; Virtual;
FUNCTION IsValid (Const S: String): Boolean; Virtual;
FUNCTION IsValidInput (Var S: String;
FUNCTION IsValid (Const S: FVString): Boolean; Virtual;
FUNCTION IsValidInput (Var S: FVString;
SuppressFill: Boolean): Boolean; Virtual;
FUNCTION Picture (Var Input: String;
FUNCTION Picture (Var Input: FVString;
AutoFill: Boolean): TPicResult; Virtual;
PROCEDURE Error; Virtual;
PROCEDURE Store (Var S: TStream);
@ -168,8 +168,8 @@ TYPE
ValidChars: CharSet; { Valid char set }
CONSTRUCTOR Init (AValidChars: CharSet);
CONSTRUCTOR Load (Var S: TStream);
FUNCTION IsValid (CONST S: String): Boolean; Virtual;
FUNCTION IsValidInput (Var S: String;
FUNCTION IsValid (CONST S: FVString): Boolean; Virtual;
FUNCTION IsValidInput (Var S: FVString;
SuppressFill: Boolean): Boolean; Virtual;
PROCEDURE Error; Virtual;
PROCEDURE Store (Var S: TStream);
@ -185,8 +185,8 @@ TYPE
Max: LongInt; { Max valid value }
CONSTRUCTOR Init(AMin, AMax: LongInt);
CONSTRUCTOR Load (Var S: TStream);
FUNCTION IsValid (Const S: String): Boolean; Virtual;
FUNCTION Transfer (Var S: String; Buffer: Pointer;
FUNCTION IsValid (Const S: FVString): Boolean; Virtual;
FUNCTION Transfer (Var S: FVString; Buffer: Pointer;
Flag: TVTransfer): Word; Virtual;
PROCEDURE Error; Virtual;
PROCEDURE Store (Var S: TStream);
@ -198,8 +198,8 @@ TYPE
{---------------------------------------------------------------------------}
TYPE
TLookupValidator = OBJECT (TValidator)
FUNCTION IsValid (Const S: String): Boolean; Virtual;
FUNCTION Lookup (Const S: String): Boolean; Virtual;
FUNCTION IsValid (Const S: FVString): Boolean; Virtual;
FUNCTION Lookup (Const S: FVString): Boolean; Virtual;
END;
PLookupValidator = ^TLookupValidator;
@ -212,7 +212,7 @@ TYPE
CONSTRUCTOR Init (AStrings: PStringCollection);
CONSTRUCTOR Load (Var S: TStream);
DESTRUCTOR Done; Virtual;
FUNCTION Lookup (Const S: String): Boolean; Virtual;
FUNCTION Lookup (Const S: FVString): Boolean; Virtual;
PROCEDURE Error; Virtual;
PROCEDURE NewStringList (AStrings: PStringCollection);
PROCEDURE Store (Var S: TStream);