[steep]

есть код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

//////////////////////////////////////////////////////////////////////////////// //  Сохранить XML //////////////////////////////////////////////////////////////////////////////// function TConverter.SaveTree(var Tree: OleVariant; const path: WideString): Integer; var XMLdoc: OleVariant;     rootTree :oleVariant;     EmptyXML:widestring; begin   result := 0;   XMLdoc := CreateOleObject('MSXML2.DOMdocument');   try     rootTree := Tree.Rows.Get(0);     EmptyXML := '<' + VarToStr(rootTree.get(0)) + '></' + VarToStr(rootTree.get(0)) + '>';     XMLdoc.loadXML(EmptyXML);       WriteElement(rootTree,XMLdoc.documentElement);       XMLdoc.save(path);   finally     XMLdoc := 0;   end; end;   //////////////////////////////////////////////////////////////////////////////// // Чтение элемента //////////////////////////////////////////////////////////////////////////////// procedure WriteElement(root1C,rootXML : OleVariant); var i:integer;     currentRow, newNode, loAttr:oleVariant;   begin   for i:=0 to root1C.rows.count-1 do   begin     currentRow := root1C.rows.get(i);     //сколотить элемент     newNode := rootXML.ownerDocument.createNode(1,VarToStr(currentRow.get(0)),'');       //если нет подчинённых строк то ставим значение иначе добавляем     if currentRow.rows.count = 0 then        newNode.text := VarToStr(currentRow.get(1))     else        WriteElement(currentRow,newNode);     rootXML.appendChild(newNode);   end; end;

Админ: Пользуемся тегами для оформления кода!

Он нормально работает, и сохраняет значение в таком виде
http://ybex.com/d/h2e700bmkwijqxjxn6...xoea7j6e0.html
а нужно в таком,т.е. как аттрибуты
http://ybex.com/d/v64umk2ctvgebkk8fu...4dpmyh2ma.html
Подскажите пожалуйста, как сделать что бы сохранял как атрибуты