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