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

* fcl-db: cosmetic: document integer precision; layout

Browse Source 
git-svn-id: trunk@28000 -
This commit is contained in:
reiniero 2014-06-19 12:25:11 +00:00
parent 25037f5318
commit 5c1eec309d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -810,40 +810,40 @@ begin
FieldSize := 4;
OFieldType := SQLT_VNU;
OFieldSize:= 22;
end
end;
else if Oprecision < 5 then
begin
FieldType := ftSmallint;
OFieldType := SQLT_INT;
OFieldSize := sizeof(smallint);
end
else
end;
else //OPrecision=5..9, OScale=0
begin
FieldType := ftInteger;
OFieldType := SQLT_INT;
OFieldSize:= sizeof(integer);
end;
end
end;
else if (Oscale = -127) {and (OPrecision=0)} then
begin
FieldType := ftFloat;
OFieldType := SQLT_FLT;
OFieldSize:=sizeof(double);
end
end;
else if (Oscale >=0) and (Oscale <=4) and (OPrecision<=12) then
begin
FieldType := ftBCD;
FieldSize := oscale;
OFieldType := SQLT_VNU;
OFieldSize:= 22;
end
end;
else if (OPrecision-Oscale<64) and (Oscale < 64) then // limited to 63 digits before or after decimal point
begin
FieldType := ftFMTBCD;
FieldSize := oscale;
OFieldType := SQLT_VNU;
OFieldSize:= 22;
end
end;
else // approximation with double, best we can do
begin
FieldType := ftFloat;