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

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

Revision: 582
Author:   jcmoraisjr
Date:     2006-02-05 06:41:54 -0800 (Sun, 05 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=582&view=rev

Log Message:
-----------
Fixed bug # 1410138 where in some situations a Selector raises an exception because database component name wasn't uploaded from stream.

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-02-05 14:25:24 UTC (rev 581)
+++ trunk/Source/Core/InstantPresentation.pas	2006-02-05 14:41:54 UTC (rev 582)
@@ -4303,7 +4303,8 @@
     else
       FQuery := Connector.CreateQuery;
     FQuery.MaxCount := MaxCount;
-    FQuery.Command := Command.Text;
+    if not (csReading in ComponentState) then
+      FQuery.Command := Command.Text;
   end;
   Result := FQuery;
 end;