From aa29f0463ef35f69fdf4b0caeaab1243be564767 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Fri, 27 Jun 2014 07:53:21 +0000
Subject: [PATCH] Added: GetValidXMLText wrapper for string elements

---
 Units/DelphiXMLDataBindingResources.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Units/DelphiXMLDataBindingResources.pas b/Units/DelphiXMLDataBindingResources.pas
index 7d33faa..fffaa7e 100644
--- a/Units/DelphiXMLDataBindingResources.pas
+++ b/Units/DelphiXMLDataBindingResources.pas
@@ -398,7 +398,7 @@ const
                               { tcDateTime }  True,
                               { tcDate }      True,
                               { tcTime }      True,
-                              { tcString }    False,
+                              { tcString }    True,
                               { tcBase64 }    True,
                               { tcNone }      False
                             );
@@ -499,7 +499,7 @@ const
                                   { tcDateTime }  '  ChildNodes[''%<Destination>:s''].NodeValue := DateTimeToXML(%<Source>:s, xdtDateTime);',
                                   { tcDate }      '  ChildNodes[''%<Destination>:s''].NodeValue := DateTimeToXML(%<Source>:s, xdtDate);',
                                   { tcTime }      '  ChildNodes[''%<Destination>:s''].NodeValue := DateTimeToXML(%<Source>:s, xdtTime);',
-                                  { tcString }    '',
+                                  { tcString }    '  ChildNodes[''%<Destination>:s''].NodeValue := GetValidXMLText(%<Source>:s);',
                                   { tcBase64 }    '  ChildNodes[''%<Destination>:s''].NodeValue := Base64Encode(%<Source>:s);',
                                   { tcNode }      '  ChildNodes[''%<Destination>:s''] := %<Source>:s;'
                                 ),
@@ -511,7 +511,7 @@ const
                                   { tcDateTime }  '  ChildNodesNS[''%<Destination>:s'', ''%<Namespace>:s''].NodeValue := DateTimeToXML(%<Source>:s, xdtDateTime);',
                                   { tcDate }      '  ChildNodesNS[''%<Destination>:s'', ''%<Namespace>:s''].NodeValue := DateTimeToXML(%<Source>:s, xdtDate);',
                                   { tcTime }      '  ChildNodesNS[''%<Destination>:s'', ''%<Namespace>:s''].NodeValue := DateTimeToXML(%<Source>:s, xdtTime);',
-                                  { tcString }    '',
+                                  { tcString }    '  ChildNodesNS[''%<Destination>:s'', ''%<Namespace>:s''].NodeValue := GetValidXMLText(%<Source>:s);',
                                   { tcBase64 }    '  ChildNodesNS[''%<Destination>:s'', ''%<Namespace>:s''].NodeValue := Base64Encode(%<Source>:s);',
                                   { tcNode }      '  ChildNodesNS[''%<Destination>:s'', ''%<Namespace>:s''] := %<Source>:s;'
                                 ),
@@ -523,7 +523,7 @@ const
                                   { tcDateTime }  '  SetAttribute(''%<Destination>:s'', DateTimeToXML(%<Source>:s, xdtDateTime));',
                                   { tcDate }      '  SetAttribute(''%<Destination>:s'', DateTimeToXML(%<Source>:s, xdtDate));',
                                   { tcTime }      '  SetAttribute(''%<Destination>:s'', DateTimeToXML(%<Source>:s, xdtTime));',
-                                  { tcString }    '',
+                                  { tcString }    '  SetAttribute(''%<Destination>:s'', GetValidXMLText(%<Source>:s));',
                                   { tcBase64 }    '  SetAttribute(''%<Destination>:s'', Base64Encode(%<Source>:s));',
                                   { tcNode }      ''
                                 ),
@@ -535,7 +535,7 @@ const
                                   { tcDateTime }  '  SetNodeValue(DateTimeToXML(%<Source>:s, xdtDateTime));',
                                   { tcDate }      '  SetNodeValue(DateTimeToXML(%<Source>:s, xdtDate));',
                                   { tcTime }      '  SetNodeValue(DateTimeToXML(%<Source>:s, xdtTime));',
-                                  { tcString }    '',
+                                  { tcString }    '  SetNodeValue(GetValidXMLText(%<Source>:s));',
                                   { tcBase64 }    '  SetNodeValue(Base64Encode(%<Source>:s));',
                                   { tcNode }      ''
                                 ),
@@ -547,7 +547,7 @@ const
                                   { tcDateTime }  '  %<Destination>:s := DateTimeToXML(%<Source>:s, xdtDateTime);',
                                   { tcDate }      '  %<Destination>:s := DateTimeToXML(%<Source>:s, xdtDate);',
                                   { tcTime }      '  %<Destination>:s := DateTimeToXML(%<Source>:s, xdtTime);',
-                                  { tcString }    '',
+                                  { tcString }    '  %<Destination>:s := GetValidXMLText(%<Source>:s);',
                                   { tcBase64 }    '  %<Destination>:s := Base64Encode(%<Source>:s);',
                                   { tcNode }      ''
                                 )