* Fix ftBCDField after r11279

git-svn-id: trunk@11285 -

packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

@@ -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));