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

* Patch to add ftcurrency and ftbcd support to memds, Lacak2, Mantis #20451

Browse Source 
git-svn-id: trunk@19445 -
This commit is contained in:
marco 2011-10-10 11:14:59 +00:00
parent 908673e48b
commit c8457e8ffe
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -311,7 +311,9 @@ begin
ftString: result:=FieldDefs.Items[FieldNo-1].Size+1;
ftFixedChar:result:=FieldDefs.Items[FieldNo-1].Size+1;
ftBoolean: result:=SizeOf(Wordbool);
ftCurrency,
ftFloat: result:=SizeOf(Double);
ftBCD: result:=SizeOf(currency);
ftLargeInt: result:=SizeOf(int64);
ftSmallInt: result:=SizeOf(SmallInt);
ftInteger: result:=SizeOf(longint);
@ -981,6 +983,7 @@ begin
ftDate : F1.AsDateTime:=F2.AsDateTime;
ftTime : F1.AsDateTime:=F2.AsDateTime;
ftDateTime : F1.AsDateTime:=F2.AsDateTime;
else F1.AsString:=F2.AsString;
end;
end;
Try