HTML/JavaScript

2013年1月9日水曜日

XMLドキュメントを作成する

XMLドキュメントを作成する例

[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 件のコメント:

コメントを投稿