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;
|
