XMLNode — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Полный текст функции) |
||
| Строка 24: | Строка 24: | ||
end; | end; | ||
end; | end; | ||
| + | |||
| + | = Смотрите также = | ||
| + | |||
| + | [[Функции Delphi]] | ||
| + | |||
| + | [[Полезные функции]] | ||
Версия 12:14, 8 сентября 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;
