From bb5bf6aabf856e32ec1e77844b6dd471952559eb Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Thu, 15 Jul 2010 13:53:52 +0000
Subject: [PATCH] Fixed: Attributes are optional by default

---
 Units/XMLDataBindingGenerator.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Units/XMLDataBindingGenerator.pas b/Units/XMLDataBindingGenerator.pas
index 262851d..c5373fa 100644
--- a/Units/XMLDataBindingGenerator.pas
+++ b/Units/XMLDataBindingGenerator.pas
@@ -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);