[XE3]
// uses Xml.XMLDoc, Xml.XMLIntf を定義 // 新しいXMLドキュメントを作成する例 procedure TForm1.Button2Click(Sender: TObject); var xdoc: IXMLDocument; name_node: IXMLNode; root_node: IXMLNode; lname_node: IXMLNode; comment_node: IXMLNode; begin // 新しいXMLドキュメントを作成 xdoc := NewXMLDocument(); // 出力時にインデント xdoc.Options := [doNodeAutoIndent]; // ドキュメントルートを作成 root_node := xdoc.AddChild('root'); // ルートタグ下に子タグを作成 name_node := root_node.AddChild('name'); lname_node := root_node.AddChild('lname'); comment_node := root_node.AddChild('comment'); // タグ内にテキストを設定 name_node.Text := 'model_name'; lname_node.Text := 'モデル名'; comment_node.Text := 'コメント'; // XMLドキュメントをファイルに保存 xdoc.SaveToFile('test.xml'); end;
0 件のコメント:
コメントを投稿