paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@24130 -
This commit is contained in:
lacak 2013-04-02 11:40:43 +00:00
parent 95e6be9853
commit c844ae8cb5
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/base/fields.inc
View File

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