Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > вопрос про XML

Автор: angelina 30.11.2006, 14:45

у меня файл формируется след. образом:

Код


  Doc:=coDoc.Create;
  Doc.Set_async(false);
  Doc.LoadXML('<s/>');
  r:=Doc.Get_documentElement;

  Node1 := Doc.createElement ( 'enquiryRequest');
  r.appendChild(Node1);

  Node := Doc.createElement ( 'reason');
  txt := Doc.createTextNode(vartostr(reason.KeyValue));
  Node.appendChild(txt);
  node1.appendChild(Node);

получается:
<s>
<enquuiryRequest>
<reason>data</reason>
........
а как мне сделать чтобы выглядело:

<a n = "reason">data</a>

Автор: x77 30.11.2006, 18:43

Код


var
  Doc: IXMLDOMDocument;
  RootNode: IXMLDOMElement;
  Node: IXMLDOMNode;
begin
  Doc := CoDOMDocument.Create;
  Doc.Set_async(false);
  Doc.LoadXML('<s/>');

  RootNode := Doc.documentElement;
  Node := Doc.createElement('enquiryRequest');
  RootNode.appendChild (Node);
  Node :=  Doc.createElement('a');
  (Node as IXMLDomElement).setAttribute('n', 'reason');
  Node.text := 'data';
  RootNode.appendChild (Node);

  Memo2.Lines.Text := Doc.xml;
  ...