XMLドキュメントを読み込みする

XMLドキュメントを読み込みする例

[XE3]

// uses Xml.XMLDoc, Xml.XMLIntf を定義
// XMLドキュメントを読み込みする
procedure TForm1.Button3Click(Sender: TObject);
var
  xdoc: IXMLDocument;
  child_nodes: IXMLNodeList;
  child_node: IXMLNode;
  i: Integer;
  s: string;
  nm: string;
  lname: string;
  comment: string;
  note: string;
begin
  // XMLファイルを読み込み
  xdoc := LoadXMLDocument('test.xml');

  // 繰り返しでテキストを取得
  child_nodes := xdoc.DocumentElement.ChildNodes;
  for i := 0 to child_nodes.Count - 1 do
  begin
    child_node := child_nodes[i];
    s := child_node.Text;
  end;

  // ルートタグから子タグ名を指定して、値（テキスト）を取得
  nm := xdoc.DocumentElement.ChildValues['name'];
  lname := xdoc.DocumentElement.ChildValues['lname'];
  comment := xdoc.DocumentElement.ChildValues['comment'];

  // 存在しないタグ名を指定した場合には、
  // 型変換(nilから文字列)の例外になります
  note := xdoc.DocumentElement.ChildValues['note'];
end;