[infopol]

Код:

for I := 0 to Length(XMLTree.Nodes)-1 do
begin
 p_node:=     XMLTree.Nodes[i]  ;
     //  p_node.
    // t_node:=p_node^;

//  XMLTree.Nodes[i].TextSize;
       pData:=p_node.Data;
//

LBytes :=nil;
LBytes:=BytesOf(pData^);
//  LBytes:=TEncoding.Convert(TEncoding.UTF8, TEncoding.ASCII, LBytes);

//     UnicodeToUTF8(PWideChar(pData^),Dates,Length(pData)+1);
      name:= GetXMLNodeName( p_node);
text:= GetXMLNodeText(p_node);
attr:= GetXMLNodeAttr(name,p_node);
Memo1.Lines.Add(IntToStr(i)+' '+AnsiToUTF8(  StringOf(LBytes)){+IntToStr( p_node.TextSize)});
{for xmlattr in p_node.Attributes do
  begin

  //    Memo1.Lines.Add()
  end;
 }
//P_XMLTree.Nodes;


end;

Почему то не получается вывести все дерево атрибутов,выводится все значение файла