XMLNode

Материал из Фабиус wiki
Версия от 12:14, 8 сентября 2016; Hisava (обсуждение | вклад) (Полный текст функции)

Перейти к: навигация, поиск

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;

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

Функции Delphi

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