TXMLDocument

← →
Tetiana (2007-05-30 11:11) [0]

Подкажите пожалуйста, как с помощью TXMLDocument создать следующую XML:

<?xml version="1.0"?> <tooth isEmpty="true"> <element id = 0> <x>56</x> <y>77</y> </element> </tooh>

Буду очень признательна за полезные ссылки или кусочек кода ;)

← →
ANB © (2007-05-30 11:17) [1]

> Tetiana (30.05.07 11:11)

Сугубое имхо : создавать XML с помощью TXMLDocument - жуткий геморрой.
Просто запиши в файл как текст и не мучайся. Заодно можно красиво отформатить. А компонент форматировать не хочет.
Вот для парсинга - да. Лучше что то готовое прикрутить, т.к. самому писать довольно долго.

← →
Плохиш © (2007-05-30 12:06) [2]

> Tetiana (30.05.07 11:11)

uses ....., msxmldom; .... var XML: TXMLDocument; Child: IXMLNode; .... XML := TXMLDocument.Create(self); try XML.Options := [doNodeAutoCreate, doAttrNull, doAutoPrefix, doNamespaceDecl]; XML.ParseOptions := []; XML.DOMVendor := GetDOMVendor(""); XML.XML.Clear; XML.Active := true; XML.Version := "1.0"; XML.Encoding := "UTF-8"; XML.StandAlone := "no"; Child := XML.AddChild("tooth"); Child.Attributes["isEmpty"] := true; Child := Child.AddChild("element"); Child.Attributes["id"] := 0; Child := Child.AddChild("x"); Child.Text := "56"; Child := Child.AddChild("y"); Child.Text := "77"; XML.SaveToFile("myfile.xml"); finally XML.Free; end;
Для начала пойдёт :-)

> ANB © (30.05.07 11:17) [1]

> создавать XML с помощью TXMLDocument - жуткий геморрой.

Приколист

> Заодно можно красиво отформатить.

Нафига, не уже ли ручками разбираешь? 8-O

← →
Плохиш © (2007-05-30 12:08) [3]

> Плохиш © (30.05.07 12:06) [2]

Пардон поспешил :-)
uses ....., msxmldom; .... var XML: TXMLDocument; Child, Child1: IXMLNode; .... XML := TXMLDocument.Create(self); try XML.Options := [doNodeAutoCreate, doAttrNull, doAutoPrefix, doNamespaceDecl]; XML.ParseOptions := []; XML.DOMVendor := GetDOMVendor(""); XML.XML.Clear; XML.Active := true; XML.Version := "1.0"; XML.Encoding := "UTF-8"; XML.StandAlone := "no"; Child := XML.AddChild("tooth"); Child.Attributes["isEmpty"] := true; Child := Child.AddChild("element"); Child.Attributes["id"] := 0; Child1 := Child.AddChild("x"); Child1.Text := "56"; Child1 := Child.AddChild("y"); Child1.Text := "77"; XML.SaveToFile("myfile.xml"); finally XML.Free; end;

← →
tetiana (2007-05-30 12:35) [4]

большое спасибо, сейчас буду пробовать! :)

TXMLDocument Найти похожие ветки