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

fcl-db: mysql: fix return type of function InternalStrToCurrency. Revealed by test: TestSupportBCDFields

Browse Source 
git-svn-id: trunk@30155 -
This commit is contained in:
lacak 2015-03-10 06:42:18 +00:00
parent 94a2fbb20d
commit 1e536926e1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -214,8 +214,8 @@ implementation
uses
dbconst,
strutils,
dateutils,
StrUtils,
DateUtils,
FmtBCD;
const
@ -856,7 +856,7 @@ begin
Result := StrToFloat(Tmp);
end;
function InternalStrToCurrency(const S: string): Extended;
function InternalStrToCurrency(const S: string): Currency;
var
I: Integer;