Тема: Парсинг xml
Показать сообщение отдельно
  #2  
Старый 24.07.2013, 06:20
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Попробуй так:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
  xml: IXMLDocument;
  i: Integer; dt: string;
begin
  xml := TXMLDocument.Create(nil);
  xml.LoadFromFile('http://rp5.ru/xml/1508/00000/ru');
  xml.Active := True;
  for i := 0 to xml.DocumentElement.ChildNodes.Count - 1 do
  begin
    dt := xml.DocumentElement.ChildNodes[i].ChildNodes['datetime'].Text;
    Memo1.Lines.Add(dt);
  end;
  xml.Active := False;
  xml := Nil;
end;

Там проблема, когда TXMLDocument не лежит на форме.
Почему-то компонент считает, что ссылок больше нет и тихо умирает...
Ответить с цитированием