Показать сообщение отдельно
  #3  
Старый 14.08.2012, 12:02
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  rsdata: IXMLNode;
begin
  XMLDocument1.XML.Assign(Memo1.Lines);
  XMLDocument1.Active:=True;
  rsdata:=XMLDocument1.DocumentElement.ChildNodes['rs:data'];
  // 0
  ShowMessage(
    rsdata.ChildNodes[0].ChildNodes[0].ChildNodes[0].Attributes['id']
  );
  ShowMessage(
    rsdata.ChildNodes[0].ChildNodes[1].Attributes['id']
  );
  // 1
  ShowMessage(
    rsdata.ChildNodes[1].ChildNodes[0].ChildNodes[0].Attributes['id']
  );
  ShowMessage(
    rsdata.ChildNodes[1].ChildNodes[1].Attributes['id']
  );
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием