Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28424/Core
Modified Files:
InstantCode.pas
Log Message:
externalstored Part attributes do not map to an intermediate table anymore
Index: InstantCode.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantCode.pas 20 Nov 2004 10:52:31 -0000 1.7
--- InstantCode.pas 11 Feb 2005 17:03:36 -0000 1.8
***************
*** 3975,3982 ****
procedure TInstantCodeAttribute.InternalWrite(Writer: TInstantCodeWriter);
! procedure WriteStr(const Name, Value: string);
begin
! if Value <> '' then
! Writer.Write(' ' + Name + ' ''' + Value + '''');
end;
--- 3975,3987 ----
procedure TInstantCodeAttribute.InternalWrite(Writer: TInstantCodeWriter);
! procedure WriteStr(const Name, Value: string; const Force: Boolean = False);
begin
! if (Value <> '') or Force then
! begin
! if Value <> '' then
! Writer.Write(' ' + Name + ' ''' + Value + '''')
! else
! Writer.Write(' ' + Name);
! end;
end;
***************
*** 3992,3996 ****
WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName)
else if Metadata.IsExternal = ceStored then
! WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName)
else
WriteStr(MetaKeyStored, Metadata.StorageName);
--- 3997,4005 ----
WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName)
else if Metadata.IsExternal = ceStored then
! begin
! if Metadata.AttributeType = atPart then
! WriteStr(MetaKeyStored, Metadata.StorageName);
! WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName, True);
! end
else
WriteStr(MetaKeyStored, Metadata.StorageName);
***************
*** 8553,8557 ****
begin
FMetadata.IsExternal := ceStored;
! FMetadata.ExternalStoredName := ReadStringValue;
end;
if SameText(Token, MetaKeyExternalLinked) then
--- 8562,8566 ----
begin
FMetadata.IsExternal := ceStored;
! FMetadata.ExternalStoredName := '';
end;
if SameText(Token, MetaKeyExternalLinked) then
|
