Fixed: Attributes are optional by default
This commit is contained in:
parent
595ae4ea7d
commit
bb5bf6aabf
@ -361,7 +361,7 @@ uses
|
|||||||
|
|
||||||
const
|
const
|
||||||
MaxOccursUnbounded = 'unbounded';
|
MaxOccursUnbounded = 'unbounded';
|
||||||
UseOptional = 'optional';
|
UseRequired = 'required';
|
||||||
CollectionPostfix = 'List';
|
CollectionPostfix = 'List';
|
||||||
AttributeNillable = 'nillable';
|
AttributeNillable = 'nillable';
|
||||||
|
|
||||||
@ -1026,7 +1026,7 @@ begin
|
|||||||
AAttribute.Name,
|
AAttribute.Name,
|
||||||
AAttribute.DataType);
|
AAttribute.DataType);
|
||||||
|
|
||||||
propertyItem.IsOptional := (AAttribute.Use = UseOptional);
|
propertyItem.IsOptional := (AAttribute.Use <> UseRequired);
|
||||||
propertyItem.IsAttribute := True;
|
propertyItem.IsAttribute := True;
|
||||||
|
|
||||||
AInterface.AddProperty(propertyItem);
|
AInterface.AddProperty(propertyItem);
|
||||||
|
Loading…
Reference in New Issue
Block a user