paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: memds: for ftLargeInt fields use AsLargeInt when copying

Browse Source 
git-svn-id: trunk@37524 -
This commit is contained in:
lacak 2017-10-26 13:00:50 +00:00
parent 555528d145
commit eef6e65730
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/memds/memds.pp
View File

@ -1167,7 +1167,7 @@ begin
ftString : F1.AsString:=F2.AsString;
ftBoolean : F1.AsBoolean:=F2.AsBoolean;
ftFloat : F1.AsFloat:=F2.AsFloat;
ftLargeInt : F1.AsInteger:=F2.AsInteger;
ftLargeInt : F1.AsLargeInt:=F2.AsLargeInt;
ftSmallInt : F1.AsInteger:=F2.AsInteger;
ftInteger : F1.AsInteger:=F2.AsInteger;
ftDate : F1.AsDateTime:=F2.AsDateTime;