* Set TBCDField.ValidChars, bug #16147

git-svn-id: trunk@15205 -
2025-04-21 13:09:32 +02:00 · 2010-05-02 15:24:58 +00:00 · 2010-05-02 15:24:58 +00:00 · b7dc7d03b2
commit b7dc7d03b2
parent f9616640d8
1 changed files with 1 additions and 0 deletions
--- a/packages/fcl-db/src/base/fields.inc
+++ b/packages/fcl-db/src/base/fields.inc
@ -2368,6 +2368,7 @@ begin
  Inherited Create(AOwner);
  FMaxvalue := 0;
  FMinvalue := 0;
+  FValidChars := [DecimalSeparator, '+', '-', '0'..'9'];
  SetDataType(ftBCD);
  FPrecision := 15;
  Size:=4;