[Instantobjects-cvscommit] Source/Core InstantPresentation.pas,1.5,1.6

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7512/Core

Modified Files:
	InstantPresentation.pas 
Log Message:
Fixed Range Check Error in TInstantCustomExposer.LoadFieldValue

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantPresentation.pas	10 Sep 2004 10:13:04 -0000	1.5
--- InstantPresentation.pas	16 Sep 2004 11:47:51 -0000	1.6
***************
*** 32,35 ****
--- 32,37 ----
   * Andrea Petrelli:
   * - Added OnProgress event on TInstantSelector
+  * Nando Dessena:
+  * - Fixed Range Check Error in TInstantCustomExposer.LoadFieldValue
   * ***** END LICENSE BLOCK ***** *)
  
***************
*** 2954,2958 ****
            if Len >= Field.DataSize then
              Len := Pred(Field.DataSize);
!           Move(S[1], Buffer^, Len);
          end;
        end;
--- 2956,2961 ----
            if Len >= Field.DataSize then
              Len := Pred(Field.DataSize);
!           if Len > 0 then
!             Move(S[1], Buffer^, Len);
          end;
        end;