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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м (Смотрите также)
 
(не показаны 4 промежуточные версии этого же участника)
Строка 1: Строка 1:
XMLNode - это функция ( [[QrAddFn2.pas]] )
+
[[XMLNode]] - это функция ( [[QrAddFn2.pas]] )
 
+
Описание: Xml-Node
XMLNode( [[XMLDocument]] )
+
[[XMLNode]]( [[XMLDocument]] )
 
+
= Пример =
Описание: Xml-Node
+
    node := [[XMLNode]]( doc )
 
+
    for i := 0 to [[XmlNodeProp]]( node, "ChildNodeCount" ) - 1
= Полный текст функции =
+
      aa := [[XmlNodeProp]]( [[XmlNodeProp]]( node, "ChildNodes", i ), "NODEVALUE" )
 
+
    next
type
+
  TQrEvXMLNode=class(TQREvElementFunction)
+
  public
+
    function Calculate: TQREvResult; override;
+
  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;
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[XMLDocument]]
 
[[XMLDocument]]
 
[[Функции Delphi]]
 
 
[[Полезные функции]]
 

Текущая версия на 12:36, 11 января 2020

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

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

XMLNode( XMLDocument )

Пример

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

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

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

XMLDocument