Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21991/Core
Modified Files:
InstantPersistence.pas
Log Message:
external part fixes (on behalf of Andrea Vaccari)
Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** InstantPersistence.pas 11 Feb 2005 14:38:15 -0000 1.20
--- InstantPersistence.pas 13 Feb 2005 18:46:47 -0000 1.21
***************
*** 12846,12850 ****
FieldStr, WhereStr: string;
begin
! FieldStr := '%s, %s';
WhereStr := Format('%s = :%s AND %s = :%s',
[EmbraceField(InstantClassFieldName), InstantClassFieldName,
--- 12846,12850 ----
FieldStr, WhereStr: string;
begin
! FieldStr := Format('%s, %s', [EmbraceField('%s'), EmbraceField('%s')]);
WhereStr := Format('%s = :%s AND %s = :%s',
[EmbraceField(InstantClassFieldName), InstantClassFieldName,
***************
*** 13573,13577 ****
[AttributeMetadata.FieldName + InstantClassFieldName,
AttributeMetadata.FieldName + InstantIdFieldName,
! AObject.Metadata.TableName]);
AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
--- 13573,13577 ----
[AttributeMetadata.FieldName + InstantClassFieldName,
AttributeMetadata.FieldName + InstantIdFieldName,
! AttributeMetadata.ClassMetadata.TableName]);
AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
***************
*** 13967,13971 ****
[AttributeMetadata.FieldName + InstantClassFieldName,
AttributeMetadata.FieldName + InstantIdFieldName,
! AObject.Metadata.TableName]);
AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
--- 13967,13971 ----
[AttributeMetadata.FieldName + InstantClassFieldName,
AttributeMetadata.FieldName + InstantIdFieldName,
! AttributeMetadata.ClassMetadata.TableName]);
AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
|
