paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 15:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added support for NEWDECIMAL from MySQL 5

Browse Source 
git-svn-id: trunk@3169 -
This commit is contained in:
michael 2006-04-08 12:35:19 +00:00
parent 801650ee95
commit 4efefe659a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/db/sqldb/mysql/mysqlconn.inc
View File

@ -338,6 +338,9 @@ begin
NewType := ftInteger;
NewSize := 0;
end;
{$ifdef mysql50}
FIELD_TYPE_NEWDECIMAL,
{$endif}
FIELD_TYPE_DECIMAL, FIELD_TYPE_FLOAT, FIELD_TYPE_DOUBLE:
begin
NewType := ftFloat;
@ -551,6 +554,9 @@ begin
VI := 0;
Move(VI, Dest^, Result);
end;
{$ifdef mysql50}
FIELD_TYPE_NEWDECIMAL,
{$endif}
FIELD_TYPE_DECIMAL, FIELD_TYPE_FLOAT, FIELD_TYPE_DOUBLE:
begin
Result := SizeOf(Double);