求助:XML文件导入数据表后,中文显示为乱码,请教如何解决? 注:XML中已经加入代码:encoding="GB2312" 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不会啊。<?xml version="1.0" encoding="gb2312" ?> <?xml-stylesheet type='text/xsl' href='Worker.xsl'?><Text> <TextName>公司花名册</TextName> <Dep> <DepName>南京长安客服处</DepName> <Dep> .....<Text>我是直接通过程序生成xml文件 procedure Tfrm_OrganizeM.W1Click(Sender: TObject);var NodeText: String;begin XmlStr:=TStringList.Create; with tvOrganize do begin NodeText := Items[0].Text; NodeText:=Copy(NodeText,1,Pos('[',NodeText)-1); end; //写入文件 XmlStr.Add('<?xml version="1.0" encoding="gb2312" ?> '); XmlStr.Add('<?xml-stylesheet type=''text/xsl'' href=''Worker.xsl''?>'); XmlStr.Add('<Text>'); XmlStr.Add(' <TextName>公司花名册</TextName>'); XmlStr.Add(' <Dep>'); XmlStr.Add(' <DepName>'+NodeText+'</DepName>'); AddXmlStrings(tvOrganize.Items[0]); XmlStr.Add(' </Dep>'); XmlStr.Add('</Text>'); XmlStr.SaveToFile('花名册.xml'); ShellExecute(0, 'open', PChar('花名册.xml'), nil, nil, SW_SHOW) ; XmlStr.Free;... 你的XML文件是什么形式的? 并且你用什么方式导入数据表中的? <?xml version="1.0" encoding="gb2312" ?> xml mapper 不支持wideString. 问一个很简单的问题,别笑 DELPHI程序在WIN98下不好用。 ¥¥¥¥--->>>>如何让鼠标在指定的一点触发单击或双击事件 谁知道Excel文件的存储格式 请问哪有电子版的<<delphi 6灵感设计>> 怎么实现用权限的添加呀? 关于读卡器,急!在线等待。。。 这样的问题是不是难啊,我开了四五帖了都没能解决??(再来一帖) 对于一个中文字符串,我想隔几个字就加个空格,怎么写呢?做报表用,谢谢! nil 是不是相当于C++的NULL 初學者簡單一問, 在線等待!!!! 自创建组件的编译问题->:
<?xml version="1.0" encoding="gb2312" ?>
<?xml-stylesheet type='text/xsl' href='Worker.xsl'?>
<Text>
<TextName>公司花名册</TextName>
<Dep>
<DepName>南京长安客服处</DepName>
<Dep>
.....<Text>
我是直接通过程序生成xml文件
var
NodeText: String;
begin
XmlStr:=TStringList.Create;
with tvOrganize do
begin
NodeText := Items[0].Text;
NodeText:=Copy(NodeText,1,Pos('[',NodeText)-1);
end;
//写入文件
XmlStr.Add('<?xml version="1.0" encoding="gb2312" ?> ');
XmlStr.Add('<?xml-stylesheet type=''text/xsl'' href=''Worker.xsl''?>');
XmlStr.Add('<Text>');
XmlStr.Add(' <TextName>公司花名册</TextName>');
XmlStr.Add(' <Dep>');
XmlStr.Add(' <DepName>'+NodeText+'</DepName>');
AddXmlStrings(tvOrganize.Items[0]);
XmlStr.Add(' </Dep>');
XmlStr.Add('</Text>');
XmlStr.SaveToFile('花名册.xml');
ShellExecute(0, 'open', PChar('花名册.xml'), nil, nil, SW_SHOW) ;
XmlStr.Free;
...