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

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

Revision: 914
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=914&view=rev
Author:   davidvtaylor
Date:     2010-09-15 03:19:35 +0000 (Wed, 15 Sep 2010)

Log Message:
-----------
* Changed conditional directive so bug workaround only applies to Delphi 2010. Bug does not exist in Delphi XE

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

Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2010-09-15 02:55:41 UTC (rev 913)
+++ trunk/Source/Core/InstantPresentation.pas	2010-09-15 03:19:35 UTC (rev 914)
@@ -2712,7 +2712,7 @@
 
 function TInstantCustomExposer.FieldDataSize(Field : TField): integer;
 begin
-{$IFDEF D14+}
+{$IFDEF D14}
   // Workaround for DataSize bugs in D2010 RTM (QC 78620 and 78620)
   if (not Assigned(Field)) or (Field is TBlobField) then
     Result := 0