DELPHI TXMLDocument读取XML出现乱码的问题
XML文件
<?xml version="1.0" encoding="utf-8"?>
.......
因为原因很多，所以这个方法不一定能解决问题
XMLDocument1.LoadfromFile('test.XML');
XMLDocument1.Active:=TRUE;
XMLDocument1.Encoding:='gb2312';
memo1.Text:=XMLDocument1.XML.Text;
相关文档：
1．引言
在利用delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，经常要进行文件的创建、编辑及修改，虽然delphi本身提供了很多设计报表的控件或方法，但是存在明显的不足，比如中文输入，数据格式的控制等操作起来比较麻烦。利用大家都很熟悉的office工具结合开发，能够很好的解决这方面的问题。以� ......
不需要生成dtd,无用配置,不需要生成辅助类，速度快。这就是xstream+xpp超强黄金组合。
xstream大家都知道啦，XML Pull Parser是一种高速的 解析xml文件的方式，速度要比传统方式快很多（发现pull式解析现在比较流行了）。下面我给出多种使用方法的例子。
1.最简单的使用方法
因为这个太简单，所以我从moogle的blog http: ......
---xml拆分以不定空格为分割符号的字符串
--测试数据
if object_id('[tb]') is not null drop table [tb]
create table [tb]([a] varchar(200))
go
insert [tb]
select 'aaaa bbbb cccc dddd'
insert [tb]
select 'eeeeee ffff hhhh ......
这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用
首先有两个自定的转换函数：
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......
重载 CreateParams 方法即可
声明：
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......
