注:XML中已经加入代码:encoding="GB2312"
解决方案 »
- 问个关于操作dbf数据库的问题
- 函数参数TDataSet类型错误~~~
- 请教各位高手,在DELPHI里怎样做才能直接进入自已的邮箱
- 1)"金山快译“那样的导航条,他是如何控制
- 招骋软件开发人员(Delphi)
- delphi中提示“Grid index out of range”的错误信息,为什么?
- delphi 客户端 如何用socket发送和接收数据包
- 李维写的关于Delphi5.x开发电子商务中中的xmlRowSet未定义的一个问题.
- 为什么COPYFILE函数不能拷贝出我想要的文件?请看下面的代码:
- 寻求DCU文件?急~~~~~~~~~~~急
- 初學者簡單一問, 在線等待!!!!
- 自创建组件的编译问题->:
<?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;
...