- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
program XMLParser;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Xml.XMLDoc, XMLIntf;
var XMLDocument1 : TXMLDocument;
Node : IXMLNode;
begin
XMLDocument1:=TXMLDocument.Create('Путь до файла\Text1.XML');
XMLDocument1.LoadFromFile('Путь до файла\Text1.XML');
XMLDocument1.Active := true;
Node.GetAttribute(WideString('x'));
WriteLn;
XMLDocument1.Active := false;
end.
Dr_Stertor 10.01.2017 17:14 # +1
Владельцем должен быть TComponent, иначе будет UB (об этом в доке пишут).
Откуда в строке #15 "Путь до файла\Text1.XML", навеки останется тайной.