paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 04:39:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* switch currency fields to use "ascurrency" Mantis 21380, patch by Lacak2

Browse Source 
git-svn-id: trunk@20455 -
This commit is contained in:
marco 2012-03-01 11:32:09 +00:00
parent 7de37b0ad9
commit 9dd87f9a6f
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-db/src/base/dsparams.inc
View File

@ -815,9 +815,8 @@ begin
ftWord : Field.AsInteger:=AsWord;
ftInteger,
ftAutoInc : Field.AsInteger:=AsInteger;
// Need TField.AsCurrency
ftCurrency : Field.asFloat:=AsCurrency;
ftFloat : Field.asFloat:=AsFloat;
ftCurrency : Field.AsCurrency:=AsCurrency;
ftFloat : Field.AsFloat:=AsFloat;
ftBoolean : Field.AsBoolean:=AsBoolean;
ftBlob,
ftGraphic..ftTypedBinary,
@ -853,9 +852,9 @@ begin
ftWord : AsWord:=Field.AsInteger;
ftInteger,
ftAutoInc : AsInteger:=Field.AsInteger;
// Need TField.AsCurrency
ftCurrency : AsCurrency:=Field.asCurrency;
ftFloat : AsFloat:=Field.asFloat;
ftBCD,
ftCurrency : AsCurrency:=Field.AsCurrency;
ftFloat : AsFloat:=Field.AsFloat;
ftBoolean : AsBoolean:=Field.AsBoolean;
ftBlob,
ftGraphic..ftTypedBinary,