fcl-db: fields: use new implemented FormatBCD function to format TFMTBCDField. Depends on rev.24128! Bug #24096

git-svn-id: trunk@24130 -

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

@@ -2622,8 +2622,7 @@ begin
     else
       fmt := FEditFormat;
     if fmt<>'' then
-      TheText := BCDToStr(bcd)
-      //TheText := FormatBCD(fmt,bcd) //uncomment when formatBCD in fmtbcd.pp will be implemented
+      TheText := FormatBCD(fmt,bcd)
     else if fCurrency then begin
       if aDisplayText then
         TheText := BcdToStrF(bcd, ffCurrency, FPrecision, 2)