* Proper CheckTypeSize check for TWideStringField

 * Allow non-zero Size for TNumericField to avoid problems with buggy TDataset descendents

git-svn-id: trunk@9865 -

packages/fcl-db/src/base/db.pas

@@ -494,6 +494,7 @@ type
     FDisplayFormat : String;
     FEditFormat : String;
   protected
+    class procedure CheckTypeSize(AValue: Longint); override;
     procedure RangeError(AValue, Min, Max: Double);
     procedure SetDisplayFormat(const AValue: string);
     procedure SetEditFormat(const AValue: string);