为什么在IE中是显示汉字，而我用文本编译器打开却是商业客户 ( 积分:

为什么在IE中是显示汉字，而我用文本编译器打开却是商业客户
( 积分: 100 )<br />在xml原文件是这个码
<CUST_TYPE_NAME>&amp;#21830;&amp;#19994;&amp;#23458;&amp;#25143;</CUST_TYPE_NAME>
我如何转成
<CUST_TYPE_NAME>商业客户</CUST_TYPE_NAME>
&amp;#21830;&amp;#19994;&amp;#23458;&amp;#25143;这是什么编码?
用IE打开就是显示：商业客户 这几个汉字 ，请问这是用什么函数转换的，在delphi中可以用什么函数转换，谢谢

在xml原文件是这个码
<CUST_TYPE_NAME>&amp;#21830;&amp;#19994;&amp;#23458;&amp;#25143;</CUST_TYPE_NAME>
我如何转成
<CUST_TYPE_NAME>商业客户</CUST_TYPE_NAME>
&amp;#21830;&amp;#19994;&amp;#23458;&amp;#25143;这是什么编码?
用IE打开就是显示：商业客户 这几个汉字 ，请问这是用什么函数转换的，在delphi中可以用什么函数转换，谢谢

是unicode码。在delphi中可以用如下函数转换。
//UniCode -> 汉字
Function UniCode2Chinese(AiUniCode : Integer) : String;
Var
ch, cl : String[3];
s : String;
begin
s := IntToHex(AiUniCode, 2);
cl := '$' + Copy(s, 1, 2);
ch := '$' + Copy(s, 3, 2);
s := Chr(StrToInt(ch)) + Chr(StrToInt(cl)) + #0;
Result := WideCharToString(pWideChar(s));
end;

//汉字 -> UniCode
Function Chinese2UniCode(AiChinese : String) : Integer;
Var
ch, cl : String[2];
a : array [1..2] of char;
begin
StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);
ch := IntToHex(Integer(a[2]), 2);
cl := IntToHex(Integer(a[1]), 2);
Result := StrToInt('$' + ch + cl);
end;

谢谢 通过了