如何将一个xml文件的内容读如dbgrid;

Question

如何将一个xml文件的内容读如dbgrid;其中使用了TXMLDocument,页面上有

Answer 1

这是一个xml文件
<?xml version="1.0" encoding="UTF-8"?>
<personcode>
<code>
<name>庞</name>
<pcode>pang</pcode>
<notes>庞</notes>
</code>
<code>
<name>刘</name>
<pcode>liuhao</pcode>
<notes>刘</notes>
</code>
<code>
<name>李</name>
<pcode>li</pcode>
<notes>李</notes>
</code>
</personcode>

Answer 2

type
  PTpersoncode = ^Rcrdpersoncode;
  Rcrdpersoncode = record
    name: string;
    pcode: string;
    notes: string;
  end;   var
  xmlRowNodeList: IXMLNodeList;
  xmlRowNode: IXMLNode;
  intForLoop: integer;
  Ppersoncode :PTpersoncode;for intForLoop := 0 to xmlRowNodeList.Count - 1 do
begin
  xmlRowNode := xmlRowNodeList.Get(intForLoop);
  Ppersoncode^.name   := xmlRowNode.Attributes['name'];
  ...
  lstResult.Add(Ppersoncode);
end;    sgResult.RowCount := lstResult.Count + 1;
    for intForLoop := 0 to lstResult.Count - 1 do
    begin
      Ppersoncode := lstResult.Items[intForLoop];
      sgResult.Cells[1,intForLoop+1] := Ppersoncode^.name;
      ...
    end;
但是我不知道如何将xml文件的内容读入QReport做打印报表，希望能交流

Answer 3

ADOQuery1.LoadFromFile('G:\Client.xml');
ADOQuery1.Close;
ADOQuery1.Open;
添加一DataSource跟DBGrid不就行了