fcl-db: implement setter and getter for TFloatField.AsBCD

git-svn-id: trunk@29758 -

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

@@ -637,6 +637,7 @@ type
     procedure SetCurrency(const AValue: Boolean);
     procedure SetPrecision(const AValue: Longint);
   protected
+    function GetAsBCD: TBCD; override;
     function GetAsFloat: Double; override;
     function GetAsLargeInt: LargeInt; override;
     function GetAsInteger: Longint; override;
@@ -644,6 +645,7 @@ type
     function GetAsString: string; override;
     function GetDataSize: Integer; override;
     procedure GetText(var theText: string; ADisplayText: Boolean); override;
+    procedure SetAsBCD(const AValue: TBCD); override;
     procedure SetAsFloat(AValue: Double); override;
     procedure SetAsLargeInt(AValue: LargeInt); override;
     procedure SetAsInteger(AValue: Longint); override;

packages/fcl-db/src/base/fields.inc

@@ -1778,6 +1778,15 @@ begin
     FPrecision := 2;
 end;
 
+function TFloatField.GetAsBCD: TBCD;
+var f : Double;
+begin
+  if GetData(@f) then
+    Result := DoubleToBCD(f)
+  else
+    Result := NullBCD;
+end;
+
 function TFloatField.GetAsFloat: Double;
 
 begin
@@ -1809,11 +1818,11 @@ end;
 
 function TFloatField.GetAsString: string;
 
-var R : Double;
+var f : Double;
 
 begin
-  If GetData(@R) then
-    Result:=FloatToStr(R)
+  If GetData(@f) then
+    Result:=FloatToStr(f)
   else
     Result:='';
 end;
@@ -1859,6 +1868,11 @@ begin
     TheText:=FloatToStrF(E,ff,FPrecision,Digits);
 end;
 
+procedure TFloatField.SetAsBCD(const AValue: TBCD);
+begin
+  SetAsFloat(BCDToDouble(AValue));
+end;
+
 procedure TFloatField.SetAsFloat(AValue: Double);
 
 begin
@@ -1881,15 +1895,15 @@ end;
 
 procedure TFloatField.SetAsString(const AValue: string);
 
-var R : Double;
+var f : Double;
 
 begin
   If (AValue='') then
     Clear
   else  
     try
-      R := StrToFloat(AValue);
-      SetAsFloat(R);
+      f := StrToFloat(AValue);
+      SetAsFloat(f);
     except
       DatabaseErrorFmt(SNotAFloat, [AValue]);
     end;