* use FVString in the interface part of the validate unit

git-svn-id: branches/unicodekvm@48588 -

packages/fv/src/validate.inc

@@ -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);