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

+ Fixed ftLargeInt fields

Browse Source 
git-svn-id: trunk@4302 -
This commit is contained in:
joost 2006-07-29 16:50:24 +00:00
parent 1a596dfc7b
commit 0a0089a669
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -635,7 +635,7 @@ begin
exit;
Src:=StrPas(Source);
case AType of
FIELD_TYPE_TINY, FIELD_TYPE_SHORT, FIELD_TYPE_LONG, FIELD_TYPE_LONGLONG,
FIELD_TYPE_TINY, FIELD_TYPE_SHORT, FIELD_TYPE_LONG,
FIELD_TYPE_INT24:
begin
if (Src<>'') then
@ -644,6 +644,14 @@ begin
VI := 0;
Move(VI, Dest^, SizeOf(Integer));
end;
FIELD_TYPE_LONGLONG:
begin
if (Src<>'') then
VI := StrToInt64(Src)
else
VI := 0;
Move(VI, Dest^, SizeOf(LargeInt));
end;
{$ifdef mysql50}
FIELD_TYPE_NEWDECIMAL,
{$endif}