From 9acb394d30ce553db0b54dba93cf07310ab895ef Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Wed, 3 Jul 2013 14:53:48 +0000
Subject: [PATCH] Fixed enumerator data type name

---
 Units/DelphiXMLDataBindingGenerator.pas |  8 +++++---
 Units/DelphiXMLDataBindingResources.pas | 12 ++++++------
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/Units/DelphiXMLDataBindingGenerator.pas b/Units/DelphiXMLDataBindingGenerator.pas
index 6159f65..937bfd6 100644
--- a/Units/DelphiXMLDataBindingGenerator.pas
+++ b/Units/DelphiXMLDataBindingGenerator.pas
@@ -1631,12 +1631,14 @@ begin
   if not AItem.IsCollection then
     Exit;
 
+
+
   case ASection of
     dxsInterface:
       begin
         AStream.WriteLnNamedFmt(EnumeratorInterface,
                                 ['Name', AItem.TranslatedName,
-                                 'ItemName', AItem.CollectionItem.TranslatedName,
+                                 'DataType', GetDataTypeName(AItem.CollectionItem, True),
                                  'GUID', CreateNewGUID]);
         AStream.WriteLn('');
       end;
@@ -1645,7 +1647,7 @@ begin
       begin
         AStream.WriteLnNamedFmt(EnumeratorClass,
                                 ['Name', AItem.TranslatedName,
-                                 'ItemName', AItem.CollectionItem.TranslatedName]);
+                                 'DataType', GetDataTypeName(AItem.CollectionItem, True)]);
         AStream.WriteLn('');
       end;
 
@@ -1653,7 +1655,7 @@ begin
       begin
         AStream.WriteLnNamedFmt(EnumeratorImplementation,
                                 ['Name', AItem.TranslatedName,
-                                 'ItemName', AItem.CollectionItem.TranslatedName]);
+                                 'DataType', GetDataTypeName(AItem.CollectionItem, True)]);
       end;
   end;
 end;
diff --git a/Units/DelphiXMLDataBindingResources.pas b/Units/DelphiXMLDataBindingResources.pas
index 90abc0d..0c4e34a 100644
--- a/Units/DelphiXMLDataBindingResources.pas
+++ b/Units/DelphiXMLDataBindingResources.pas
@@ -98,7 +98,7 @@ const
   XSDValidateMethodImplementationEnd      = 'end;' + CrLf;
 
 
-  EnumeratorMethodInterface       = '    function GetEnumerator: IXML%<Name>:sEnumerator;';
+  EnumeratorMethodInterface       = '    function GetEnumerator: %<Name>:sEnumerator;';
   EnumeratorMethodImplementation  = 'function TXML%<Name>:s.GetEnumerator: IXML%<Name>:sEnumerator;' + CrLf +
                                     'begin' + CrLf +
                                     '  Result := TXML%<Name>:sEnumerator.Create(Self);' + CrLf +
@@ -107,20 +107,20 @@ const
 
   EnumeratorInterface = '  IXML%<Name>:sEnumerator = interface' + CrLf +
                         '    %<GUID>:s' + CrLf +
-                        '    function GetCurrent: IXML%<ItemName>:s;' + CrLf +
+                        '    function GetCurrent: %<DataType>:s;' + CrLf +
                         '    function MoveNext: Boolean;' + CrLf +
-                        '    property Current: IXML%<ItemName>:s read GetCurrent;' + CrLf +
+                        '    property Current: %<DataType>:s read GetCurrent;' + CrLf +
                         '  end;' + CrLf;
 
 
   EnumeratorClass     = '  TXML%<Name>:sEnumerator = class(TXMLNodeCollectionEnumerator, IXML%<Name>:sEnumerator)' + CrLf +
                         '  protected' + CrLf +
-                        '    function GetCurrent: IXML%<ItemName>:s;' + CrLf +
+                        '    function GetCurrent: %<DataType>:s;' + CrLf +
                         '  end;' + CrLf;
 
-  EnumeratorImplementation = 'function TXML%<Name>:sEnumerator.GetCurrent: IXML%<ItemName>:s;' + CrLf +
+  EnumeratorImplementation = 'function TXML%<Name>:sEnumerator.GetCurrent: %<DataType>:s;' + CrLf +
                              'begin' + CrLf +
-                             '  Result := (inherited GetCurrent as IXML%<ItemName>:s);' + CrLf +
+                             '  Result := (inherited GetCurrent as %<DataType>:s);' + CrLf +
                              'end;' + CrLf;
 
   PropertyIntfMethodGetOptional = '    function GetHas%<PropertyName>:s: Boolean;';