1
0
mirror of synced 2024-11-21 05:33:50 +00:00

Fix TargetNamespace bei Collection Items

(behebt Fehler "Interface nicht unterstützt")
This commit is contained in:
Philipp Winkel 2020-10-30 08:47:54 +01:00
parent b1bba371ce
commit 6d0265862d

View File

@ -814,12 +814,13 @@ begin
'ItemClass', GetDataTypeName(propertyItem, False)]);
end;
AWriter.WriteLineNamedFmt(' %<FieldName>:s := CreateCollection(%<CollectionClass>:s, %<ItemInterface>:s, ''%<ItemSourceName>:s'') as %<CollectionInterface>:s;',
AWriter.WriteLineNamedFmt(' %<FieldName>:s := CreateCollection(%<CollectionClass>:s, %<ItemInterface>:s, ''%<ItemSourceName>:s'', ''%<Namespace>:s'') as %<CollectionInterface>:s;',
['FieldName', PrefixField + propertyItem.TranslatedName,
'CollectionClass', PrefixClass + propertyItem.Collection.TranslatedName,
'CollectionInterface', PrefixInterface + propertyItem.Collection.TranslatedName,
'ItemInterface', GetDataTypeName(propertyItem, True),
'ItemSourceName', propertyItem.Name]);
'ItemSourceName', propertyItem.Name,
'Namespace', propertyItem.TargetNamespace]);
end;
end;