* BCD-Variant support is now implemented, use it.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16980 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 6 deletions

diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index e2996006e6..5b0e8b1b8b 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/packages/fcl-db/src/base/fields.inc
@@ -2444,8 +2444,7 @@ function TFMTBCDField.GetAsVariant: Variant;
 var bcd: TBCD;
 begin
   If GetData(@bcd) then
-    Result := BCDToDouble(bcd)//remove when complete variant support in fmtbcd.pp will be implemented
-    //Result := VarFMTBcdCreate(bcd) //later invalid variant type cast ?
+    Result := VarFMTBcdCreate(bcd)
   else
     Result := Null;
 end;
@@ -2546,11 +2545,8 @@ begin
 end;
 
 procedure TFMTBCDField.SetVarValue(const AValue: Variant);
-var E:double;
 begin
-  E:=AValue;
-  SetAsBCD(DoubleToBCD(E));//remove when VarToBCD in fmtbcd.pp will be implemented
-  //SetAsBCD(VarToBCD(AValue));
+  SetAsBCD(VarToBCD(AValue));
 end;
 
 procedure TFMTBCDField.SetAsFloat(AValue: Double);