Содержание
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;