dxDBGrid1.SaveToXML(filename,true)方法，得到的结果中如果有中文出乱码，怎么解决

Question

dxDBGrid1.SaveToXML(filename,true)方法，得到的结果文件中，如果是英文和数字没问题，但结果
中如果有中文就会出现乱码，怎么才能解决

Answer 1

呵呵，你说的问题看了看，确实是有这个问题的。不过如果你手头有源代码，你可以把以下部分修改下，再重新编译，就可以了。但是我在实际使用的并不是很多，因此可能有bug我没有发现，如果有你自己再优化吧。
我使用的dxDBGrid是3.2.2版本的。
打开dxGrExpt.pas单元
到258行
将看到的函数改成下列
function ConvertTextToXml(const AText: string): string;
const
  NormalAlpha = ['0'..'9', ':', ';', '*', '+', ',', '-', '.', '/', '!', ' ',
    'A'..'Z', 'a'..'z', '_'];
var
  I: Integer;
begin
  Result := AText;//不进行转换
  //以下不用
  {for I := 1 to Length(AText) do
    if AText[I] in NormalAlpha then
      Result := Result + AText[I]
    else
      Result := Result + Format('&#%d;', [Ord(AText[I])]); }
end;
将1607行的procedure TdxDBGridExportXSL.WriteContent;主体函数的第一行改为
WriteLn('<?xml version="1.0"  encoding="GB2312" standalone="yes" ?>');
将1738行改为：
procedure TdxDBGridExportXML.DoBeginWriting;
begin
  FIndentCharCount := 0;
  WriteLn('<?xml version = "1.0" encoding="GB2312" standalone="yes" ?>');//增加中文字符集
  WriteXSL;
  WriteDTD;
  WriteLn('<GRID ExportVersion="1.0">');
end;

Answer 2

free007(绝色蜜蜂) ,谢谢你的指导，不过我有一行没弄明白怎么改，请再指导一下＾＿＊将1607行的procedure TdxDBGridExportXSL.WriteContent;主体函数的第一行改为
WriteLn('<?xml version="1.0"  encoding="GB2312" standalone="yes" ?>');主体函数在哪呀？呵呵

Answer 3

XML偶不知道,但若是HTML的話,我建議樓主讓程序加上
<..... charset...="gb2312">  之類的!

Answer 4

他不是是个嵌套函数么？你直接搜索WriteLn('<?xml version="1.0" 这个，找到了看看是不是在procedure TdxDBGridExportXSL.WriteContent内，是就修改不就行了么？