XMLNode — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
Строка 5: Строка 5:
 
Описание: Xml-Node
 
Описание: Xml-Node
  
= Полный текст функции =
+
= Пример =
  
type
+
    node := [[xmlNode]]( doc )
  TQrEvXMLNode=class(TQREvElementFunction)
+
    for i := 0 to [[XmlNodeProp]]( node, "ChildNodeCount" ) - 1
  public
+
      aa := [[XmlNodeProp]]( XmlNodeProp( node, "ChildNodes", i ), "NODEVALUE" )
    function Calculate: TQREvResult; override;
+
    next
  end;
+
 
+
function TQrEvXMLNode.Calculate: TQREvResult;
+
begin
+
  Result := NilValue;
+
  if (ArgList.Count >= 1) and (Argument(0).Kind = ResObject) and
+
    (Argument(0).ObjResult is TXMLDocument) then
+
    With (Argument(0).ObjResult as TXMLDocument) do
+
    begin
+
      Result.Kind := ResPtr;
+
      Result.PtrResult := Pointer(DocumentElement);
+
    end;
+
end;
+
  
 
= Смотрите также =
 
= Смотрите также =

Версия 12:23, 8 сентября 2016

XMLNode - это функция ( QrAddFn2.pas )

XMLNode( XMLDocument )

Описание: Xml-Node

Пример

   node := xmlNode( doc )
   for i := 0 to XmlNodeProp( node, "ChildNodeCount" ) - 1
     aa := XmlNodeProp( XmlNodeProp( node, "ChildNodes", i ), "NODEVALUE" )
   next

Смотрите также

XMLDocument

Функции Delphi

Полезные функции