2

我是在 Delphi 中使用 XML 的新手，并且已经使用已经发布的问题来找出我需要知道的大部分内容（谢谢！）。但是......我正在努力从我们的供应商之一发布的 XML 文件的顶部获取数据值。

XML 文件的顶部如下所示：

<?xml version="1.0" encoding="utf-8"?>
<form billId="1004" penId="ABCDE" appName="Report Sheet" penSerialNo="AJX-AAT-AGK-B4" >
<question id="1" reference="site_name" value="Acme Inc" /></question>
<question id="2" reference="site_address" value="London" /></question>
<question id="3" reference="TQM_job_no" value="AB1234567" /></question>
<question id="4" reference="TQM_site_no" value="XX999" /></question>

如何获取penId和penSerialNo值？

作为参考，我正在使用从网站上的另一篇文章中获得的以下代码来遍历 XML 并从问题节点获取值：

for i:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do
   begin
       Node:= XMLDocument1.DocumentElement.ChildNodes[I];
 if Node.NodeName = 'question' then
  begin
   if Node.HasAttribute('value') then
    VALUEvar:= Node.Attributes[value'];
    // do something with VALUEvar which is a string
      end;
end;
end;

我真的很感激可以提供的任何帮助......在此先感谢！

4

1 回答 1

3

因为form是你的根节点，你可以使用这样的东西：

uses
  XMLDoc, XMLIntf;

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDocument: IXMLDocument;
begin
  XMLDocument := LoadXMLDocument('c:\YourFile.xml');
  if XMLDocument.DocumentElement.HasAttribute('penId') then
    ShowMessage(VarToStr(XMLDocument.DocumentElement.Attributes['penId']));
  if XMLDocument.DocumentElement.HasAttribute('penSerialNo') then
    ShowMessage(VarToStr(XMLDocument.DocumentElement.Attributes['penSerialNo']));
end;

无论如何，您的文件无效。您不能使用包含的标签，例如：

<tag attr="value"/></tag>

要么使用：

<tag attr="value"/>

或者

<tag attr="value"></tag>
于 2012-05-03T11:59:11.533 回答