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

2025-01-01 01:08:29
推荐回答(1个)
回答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;