Fixed: Attributes are optional by default

This commit is contained in:
Mark van Renswoude 2010-07-15 13:53:52 +00:00
parent 595ae4ea7d
commit bb5bf6aabf
1 changed files with 2 additions and 2 deletions

View File

@ -361,7 +361,7 @@ uses
const
MaxOccursUnbounded = 'unbounded';
UseOptional = 'optional';
UseRequired = 'required';
CollectionPostfix = 'List';
AttributeNillable = 'nillable';
@ -1026,7 +1026,7 @@ begin
AAttribute.Name,
AAttribute.DataType);
propertyItem.IsOptional := (AAttribute.Use = UseOptional);
propertyItem.IsOptional := (AAttribute.Use <> UseRequired);
propertyItem.IsAttribute := True;
AInterface.AddProperty(propertyItem);