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

* Fix ftBCDField after r11279

Browse Source 
git-svn-id: trunk@11285 -
This commit is contained in:
joost 2008-06-26 20:21:22 +00:00
parent 67e811db60
commit 20f7187d1f
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/sqldb/oracle/oracleconnection.pp
View File

@ -455,7 +455,7 @@ begin
cur := cur + (101-b[i]) * intpower(100,-(i-2)+exp);
cur := -cur;
end;
move(cur,buffer^,FieldDef.Size);
move(cur,buffer^,SizeOf(Currency));
end;
ftFloat : move(fieldbuffers[FieldDef.FieldNo-1].buffer^,buffer^,sizeof(double));
ftInteger : move(fieldbuffers[FieldDef.FieldNo-1].buffer^,buffer^,sizeof(integer));