解决XML格式种特殊字符串的问题

各特殊符号对应关系： 

&lt; < 小于号
&gt; > 大于号
&amp; & 和
&apos; ' 单引号
&quot; " 双引号 

 

遇到小于号< 转换成 &lt; 

delphi 可直接使用以下替换方式(sXML为待转换的字符串)

StringReplace(StringReplace(StringReplace(StringReplace(StringReplace
(sXML,'<','&lt;',[rfReplaceAll]),'>','&gt;',[rfReplaceAll]),'&','&amp;',[rfReplaceAll])
,'''','&apos;',[rfReplaceAll]),'"','&quot;',[rfReplaceAll]) ;