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

[<dav...@us...>]

Revision: 964
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=964&view=rev
Author:   davidvtaylor
Date:     2012-12-05 03:36:25 +0000 (Wed, 05 Dec 2012)
Log Message:
-----------
* Fix to keep empty strings attributes from being converted to null when UseNull is false

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

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2012-11-27 19:51:24 UTC (rev 963)
+++ trunk/Source/Core/InstantBrokers.pas	2012-12-05 03:36:25 UTC (rev 964)
@@ -3060,7 +3060,8 @@
   begin
     LParam := AddStringParam(Params, FieldName, (Attribute as TInstantString).Value);
     if Attribute.IsNull then
-      LParam.Clear;
+      LParam.Clear else
+      LParam.AsString := (Attribute as TInstantString).Value;
   end;
 
 begin