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;