[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.37,1.38

[Steven M. <sr...@us...>]

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

Modified Files:
	InstantPersistence.pas 
Log Message:
TInstantBlob.Initialize fix for handling of Metadata.DefaultValue = ''.

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** InstantPersistence.pas	2 May 2005 23:26:32 -0000	1.37
--- InstantPersistence.pas	10 May 2005 22:26:45 -0000	1.38
***************
*** 5359,5369 ****
  procedure TInstantBlob.Initialize;
  begin
!   if Assigned(Metadata) and (Metadata.Defaultvalue <> '') then
!     try
!       Write(Metadata.DefaultValue[1], 0, Length(Metadata.DefaultValue));
!     except
!       on E: Exception do
!         raise ConversionError(E);
!     end;
  end;
  
--- 5359,5374 ----
  procedure TInstantBlob.Initialize;
  begin
!   if Assigned(Metadata) then
!     if (Metadata.Defaultvalue <> '') then
!     begin
!       try
!         Write(Metadata.DefaultValue[1], 0, Length(Metadata.DefaultValue));
!       except
!         on E: Exception do
!           raise ConversionError(E);
!       end;
!     end
!     else
!       Stream.Clear;
  end;