Работа с XML файлом

[sergei92]

Подскажите пожалуйста как создать XML файл записать и считать из него данные с примером пожалуйста, а то я с ним никогда не работал!

[Stilet]

Ну создать можно с помошью TStringList или любым другим способом записи в текстовые файлы. XML это всетки текстовик.
Однако в Билдере есть компонент TXMLDocument. Можно использовать его. попробуй порой примеры с ним, я о нем знаю, но никогда не использовал.

[p51x]

А можно и либу взять, типа пуги или ксерсес

[Smitt&Wesson]

Сообщение от p51x

А можно и либу взять, типа пуги или ксерсес

А если по-подробнее, человеческим языком. Что такое пуги и ксепсес и с чем его едят?

А вообще, я не особо заморачивался над этим. Создал класс XMLParser, который дербанит не очень замороченные XML-ки. А создаю при помощи TStringList, как и советовал Stilet.

[p51x]

http://pugixml.org/
https://xerces.apache.org/

[Krok27]

Открываем:

               CoInitialize(0);
		_di_IXMLDocument Config = NewXMLDocument("1.0");
		Config->SetActive(true);
		Config->SetEncoding(WideString("UTF-8"));

// здесь удаляю корневой узел, что бы полностью переписать файл
// иначе будет дублировать записи		
if(Config->GetDocumentElement())
				Config->GetChildNodes()->Delete(WideString("Root"));
// создание нового корня        
_di_IXMLNode Root = Config->CreateNode("Root",ntElement,L"");
		 Config->SetDocumentElement(Root);

Создадим узел:

_di_IXMLNode Node  = Root->AddChild("Node");

В узле Node создадим подузел:

_di_IXMLNode ChildNode  = Node->AddChild("ChildNode");
ChildNode->Text = "ChildNodeValue";

Закрываем:

Config->SaveToFile(Path+"Filename.xml");
CoUninitialize();

Чтение:
Открываем так же, далее чтение:

  _di_IXMLNode Root = Config->GetDocumentElement();
_di_IXMLNode Node =Config->DocumentElement->ChildNodes->FindNode("Node");
if(Node)
   Node->ChildNodes->FindNode("ChildNode");
if(ChildNode)
  String Val =  ChildNode->Text;

Закрываем:

   CoUninitialize();

[sergei92]

Krok27 огромнейшее Вам спасибо за помощь прямо объяснили все что нужно!