Использование XML Document Object Model

Листинг 1

//———————————————————————————
  // Процедура GetChilds – перебирает все дочерние ветви
  //———————————————————————————
  procedure TForm1.GetChilds(N: IXMLDOMNode; Level : Byte);
  var
  ElemList : IXMLDOMNodeList;
  I : Integer;
  Node : XMLDOMNode;
  S : String;
  begin
  S := ‘’;
  ElemList := N.ChildNodes;
  // Добавить смещение для уровня > 0
  For I := 0 to Level-1 Do S := S + #9;
  // Перебрать все дочерние ветви
  For I := 0 to ElemList.Length-1 do
  Begin
  Node := ElemList.Item[I];
  Case Node.NodeType of
  // Показать имя элемента для
  // ветви-элемента
  NODE_ELEMENT :
  Memo1.Lines.Add(S + Node.NodeName);
  // Показать текст для текстовой
  // ветви
  NODE_TEXT :
  Memo1.Lines.Add(S + Node.Text);
  End;
  If Node.HasChildNodes Then GetChilds(Node,Level+1);
  End;
  end;

возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует