[Instantobjects-cvscommit] SF.net SVN: instantobjects: [645] trunk/Source/Core/InstantPresentation.pas

[<jcm...@us...>]

Revision: 645
Author:   jcmoraisjr
Date:     2006-03-12 12:17:39 -0800 (Sun, 12 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=645&view=rev

Log Message:
-----------
Fixed bug [1446833] - Currency fields receives odd values.

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-03-11 09:13:45 UTC (rev 644)
+++ trunk/Source/Core/InstantPresentation.pas	2006-03-12 20:17:39 UTC (rev 645)
@@ -3917,6 +3917,7 @@
     ftBCD:
       begin
         Move(Buffer^, Bcd, SizeOf(Bcd));
+        C := 0;
         BCDToCurr(Bcd,C);
         Value := C;
       end;