[Instantobjects-cvscommit] SF.net SVN: instantobjects: [781] trunk/Source/Brokers/DBX/InstantDBX.pas

[<and...@us...>]

Revision: 781
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=781&view=rev
Author:   andreavaccari
Date:     2008-07-08 00:01:41 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
Modified the TInstantDBXOracleBroker.AssignParam method

Modified Paths:
--------------
    trunk/Source/Brokers/DBX/InstantDBX.pas

Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2008-07-07 22:04:57 UTC (rev 780)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2008-07-08 07:01:41 UTC (rev 781)
@@ -669,6 +669,10 @@
       TargetParam.AsString := IntToStr(Integer(SourceParam.AsBoolean));
     ftInteger:
       TargetParam.AsString := IntToStr(SourceParam.AsInteger);
+    ftCurrency:
+      TargetParam.AsString := CurrToStr(SourceParam.AsCurrency);
+    ftFloat:
+      TargetParam.AsString := CurrToStr(SourceParam.AsFloat);
   else
     inherited;
   end;