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

[<car...@us...>]

Revision: 783
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=783&view=rev
Author:   carlobar
Date:     2008-09-02 13:52:26 +0000 (Tue, 02 Sep 2008)

Log Message:
-----------
fixed a bug in TInstantNavigationalResolver.WriteCurrency

Modified Paths:
--------------
    trunk/Source/Core/InstantBrokers.pas

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2008-08-25 13:28:15 UTC (rev 782)
+++ trunk/Source/Core/InstantBrokers.pas	2008-09-02 13:52:26 UTC (rev 783)
@@ -2549,9 +2549,9 @@
       Clear
     else
 {$IFDEF FPC}
-      AsFloat := Value;
+      AsFloat := Attribute.Value;
 {$ELSE}
-      AsCurrency := Value;
+      AsCurrency := Attribute.Value;
 {$ENDIF}
 end;