Версия 08:32, 27 апреля 2016

XMLNode - это функция, описанная в файле QrAddFn2.pas

XMLNode( XMLDocument )

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

Полный текст функции

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;