paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 04:34:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Ludo Brands for Mantis #18240. Fixes some float issues which have

Browse Source 
scale=0 and precision=0

git-svn-id: trunk@19257 -
This commit is contained in:
marco 2011-09-27 20:31:55 +00:00
parent d7f7a9bb76
commit 962db07cf6
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -496,12 +496,21 @@ begin
HandleError;
if OCIAttrGet(Param,OCI_DTYPE_PARAM,@Oscale,nil,OCI_ATTR_SCALE,FOciError) = OCI_ERROR then
HandleError;
if Oscale = 0 then
begin
FieldType := ftInteger;
OFieldType := SQLT_INT;
OFieldSize:= sizeof(integer);
if Oprecision=0 then //Number(0,0) = number(32,4)
begin //Warning ftBCD is limited to precision 12
FieldType := ftBCD;
FieldSize := 4;
OFieldType := SQLT_VNU;
OFieldSize:= 22;
end
else
begin
FieldType := ftInteger;
OFieldType := SQLT_INT;
OFieldSize:= sizeof(integer);
end;
end
else if (oscale = -127) {and (OPrecision=0)} then
begin