From c844ae8cb545873c66902e756cd225d5a9e481f2 Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Tue, 2 Apr 2013 11:40:43 +0000
Subject: [PATCH] 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 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index 5d87de8cbd..8a56e74089 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/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)