Question

使用delphi读取xml的其中几项数据，并生成一个标准格式的xml，请问应该怎么做啊？最好有源码或主要代码

原始格式xml
<?xml version="1.0" encoding="UTF-8" standalone="yes"?

><DATAPACKET Version="2.0"> <METADATA>

<FIELDS> <FIELD attrname="编码"

fieldtype="string" required="true" WIDTH="16">

<PARAM Name="PROVFLAGS" Value="7" Type="i4"

Roundtrip="True"/> </FIELD>

<FIELD attrname="名称" fieldtype="string"

required="true" WIDTH="100"/> <FIELD

attrname="简码" fieldtype="string" WIDTH="6"/>

<FIELD attrname="上级码长" fieldtype="i2"/>

<FIELD

attrname="销售退回科目" fieldtype="string" WIDTH="20"/>

</FIELDS> <PARAMS READONLY="TRUE"

DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="0"/> </METADATA>

<ROWDATA> <ROW 编码="1" 名称="电脑" 上级码长="0"

下级码长="2" 商品税目="1502" 税率="0.17" 规格型号="1" 计量单位

="台" 单价="0" 含税价标志="TRUE"/> <ROW 编码="10"

名称="复印纸" 上级码长="1" 下级码长="0" 商品税目="4001" 税率

="0.17" 计量单位="件" 单价="0" 含税价标志="TRUE"/>

<ROW 编码="11" 名称="色带" 上级码长="1" 下级码长="0" 商品税目

="4001" 税率="0.17" 计量单位="根" 单价="0" 含税价标志="TRUE"/>

</ROWDATA></DATAPACKET>

标准xml
<?xml version="1.0" encoding="GB2312"?>
<Data TYPE="SPBIANMA"><FENLEI><Row BM="100" PID="0" MC="一般货物"/><Row BM="101" PID="0" MC="简易征收"/><Row BM="102" PID="0" MC="一般商品13%"/><Row BM="103" PID="0" MC="代码转换"/><Row BM="104" PID="0" MC="劳务"/></FENLEI><SPXX><Row BM="10000006" PID="100" MC="打印机" JM="DYJ" SPSM="000002" SL="0.17" GGXH="FP620K+" JLDW="台" DJ="" HSBZ="1"/></SPXX></Data>

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏200（财富值+成长值）

Answer 1

获取xml文件属性的代码：

procedure TForm1.Button2Click(Sender: TObject);
var
  xml: TNativeXml;
  node : TXmlNode;
  i: Integer;
begin
  xml := TNativeXml.Create(nil);
  node := xml.Root.NodeByName('ROWDATA');
  for i := 0 to node.ElementCount-1 do
  begin
    ShowMessage(node.Elements[i].AttributeByName['名称'].Value);
  end;
  xml.Free;
end;