Olá Guionardo, poderia exemplificar? Tentei fazer porém não consegui pegar
os sub-nodes
Att
Fellipe H.
2008/12/20 Guionardo Furlan guiona...@gmail.com
Começando com o root
1.Verificar se o nome do node atual é o que vc está procurando.
2. Se for sim, retorna o node e encerra.
3. Se não,
Uses XMLIntf;
function FindNode(nome: string; Root: IXMLNode): IXMLNode;
var
i: Integer;
begin
Result := nil;
i := 0;
while (i Root.ChildNodes.Count) and (Result = nil) do
if SameText(Root.ChildNodes.Nodes[i].NodeName, nome) then
Result := Root.ChildNodes.Nodes[i]
else
Começando com o root
1.Verificar se o nome do node atual é o que vc está procurando.
2. Se for sim, retorna o node e encerra.
3. Se não, verifica se existem subnodes.
4. Se não, retorna nil e encerra.
5. Se sim, faz um loop percorrendo todos os subnodes e, usando
recursividade, chama o
Amigos, preciso vasculhar um XML inteiro e achar um Node, e ao achar
adicionar um ChildNode nele, como faço isso? Sendo que o Node pode estar em
qualquer lugar na estrutura do XML?
Obrigado
--
_
T.·.F.·.A.·.
Fellipe Henrique
Blog:
4 matches
Mail list logo
