Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как обойти дерево всех IXMLNode элементов?

Алексей121 © (2008-12-12 12:49:00)
Есть дерево в виде XML документа. Мне нужно у какого-нибудь нода просмотреть все его элементы на всех уровнях вложенности.
Есть ли стандартные методы?
Делаю так (метод из итератора):
CurrentNode: IXMLNode; ... procedure TaxXMLNodeIterator.Next; begin if CurrentNode = nil then raise ExceptClass.Create('Вызову Next должна предшедствовать проверка на not IsDone'); if CurrentNode.ChildNodes.Count > 0 then CurrentNode := CurrentNode.ChildNodes[0] else if CurrentNode.NextSibling <> nil then CurrentNode := CurrentNode.NextSibling else if CurrentNode.ParentNode.NextSibling <> nil then CurrentNode := CurrentNode.ParentNode.NextSibling else CurrentNode := nil; end;

Этот алгоритм неправильный.

int64 (2008-12-12 13:47:00) [1]
ANode := CurrentNode;

while (ANode.ParentNode <> nil) and (ANode.ParentNode.NextSibling = nil)
ANode := ANode.ParentNode;
if ANode.ParentNode = nil then
CurrentNode:= nil
else
CurrentNode := ANode.ParentNode.NextSibling

int64 (2008-12-12 13:28:00) [2]

> а он не переводит?

Только, если дополнить следующим чудом:

> else
> if CurrentNode.ParentNode.NextSibling <> nil then
> CurrentNode := CurrentNode.ParentNode.NextSibling
> else
> if CurrentNode.ParentNode.ParentNode.NextSibling <> nil
> then
> CurrentNode := CurrentNode.ParentNode.ParentNode.NextSibling
> else
> if CurrentNode.ParentNode.ParentNode.ParentNode.NextSibling
> <> nil then
> CurrentNode := CurrentNode.ParentNode.ParentNode.ParentNode.
> NextSibling
> ...

clickmaker (2008-12-12 13:14:00) [3]
а он не переводит?

int64 (2008-12-12 13:08:00) [4]
Да как угодно. Нужно, чтобы метод Next переводил CurrentNode на следующий нод

clickmaker (2008-12-12 13:01:00) [5]
> все его элементы на всех уровнях вложенности

рекурсивно?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »