Fix: Documentation Element not recognized anymore since commit b4998a5d

SchemaItem.Documentation is a collection that never IsTextElement, but its items are

Units/XMLDataBindingGenerator.pas

@@ -1782,7 +1782,10 @@ begin
   if HasDocumentation then
   begin
     for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do
-      Result  := Result + SchemaItem.Documentation[documentationIndex].Text + #13#10;
+    begin
+      if SchemaItem.Documentation[documentationIndex].IsTextElement then
+        Result  := Result + SchemaItem.Documentation[documentationIndex].Text + #13#10;
+    end;
 
     Result  := Trim(Result);
   end;
@@ -1790,10 +1793,16 @@ end;
 
 
 function TXMLDataBindingItem.GetHasDocumentation: Boolean;
+var
+  documentationIndex: Integer;
+
 begin
-  Result  := Assigned(SchemaItem) and
-             (SchemaItem.Documentation.Count > 0) and
-             SchemaItem.Documentation.IsTextElement;
+  Result  := False;
+  if Assigned(SchemaItem) then
+  begin
+    for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do
+      Result  := Result or SchemaItem.Documentation[documentationIndex].IsTextElement;
+  end;
 end;