* Added ftcurrency to TODBCConnection.SetParameters. Patch by Lacak2, Mantis 21349

git-svn-id: trunk@20404 -

packages/fcl-db/src/sqldb/odbc/odbcconn.pas

@@ -420,7 +420,7 @@ begin
             else        SqlType:=SQL_WVARCHAR;
           end;
         end;
-      ftFloat:
+      ftFloat, ftCurrency:
         begin
           FloatVal:=AParams[ParamIndex].AsFloat;
           PVal:=@FloatVal;