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

* Use AsCurrency for currencies instead of float

Browse Source 
git-svn-id: trunk@17821 -
This commit is contained in:
joost 2011-06-24 23:25:04 +00:00
parent 18e17afc47
commit a532182917
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -610,7 +610,7 @@ begin
Str(AParams[i].AsFloat, s); Str(AParams[i].AsFloat, s);
ftCurrency: ftCurrency:
begin begin
cash:=NtoBE(round(AParams[i].AsFloat*100)); cash:=NtoBE(round(AParams[i].AsCurrency*100));
setlength(s, sizeof(cash)); setlength(s, sizeof(cash));
Move(cash, s[1], sizeof(cash)); Move(cash, s[1], sizeof(cash));
end end