– справка
СправкаСодержание
Xml.Text : String
Чтение текста между тегами.
Метод Xml.Text возвращает текст содержащийся между тегами.
Var
Text : String = '<?xml version="1.0" encoding="windows-1251"?>'
'<body>'
' <fruit>Apple</fruit>'
' <fruit>Avocado</fruit>'
' <pet>Dog</pet>'
' <fruit>Banana</fruit>'
' <fruit>Cashew</fruit>'
'</body>';
Procedure OnCreate;
Var
X, C : Xml;
Begin
X := CreateXML(Text);
C := X.Childs;
While C.Fetch Do
Warning(C.Name+' '+C.Text);
End;