1 Topic by indigen (edited by indigen 2020-09-17 04:13:51)

  • Registered: 2016-06-21
  • Posts: 133

Topic: Получить имена нодов XML документа

Добрый день!
Подскажите, как получить имена всех нодов одного уровня в XML документе?
У меня есть код, но он идет только по первой ветке, а соседнюю даже не видит.

procedure GetList;
var
    XMLDoc: TfsXMLDocument;
    XMLItem: TfsXMLItem;
    i: integer;
begin
    XMLDOC:=TfsXMLDocument.Create;
    XMLItem:=TfsXMLItem.Create;
    if FileExists('list.xml') then
    begin
        XMLDoc.LoadFromFile('list.xml');
        XMLItem:=XMLDoc.Root;
        for i:=0 to XMLItem.Count-1 do
            begin
                XMLItem:=XMLItem.Items[i];
                ShowMessage(XMLItem.Name);
                i:=i+1;
            end;
    end;
end;