XMLNode - История изменений

Hisava: /* Смотрите также */

2020-01-11T09:36:36Z

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

Hisava в 06:38, 14 июня 2017

2017-06-14T06:38:57Z

Hisava в 06:38, 14 июня 2017

2017-06-14T06:38:39Z

Hisava: /* Пример */

2016-09-08T09:23:42Z

‎Пример

Hisava в 09:23, 8 сентября 2016

2016-09-08T09:23:31Z

Hisava: /* Смотрите также */

2016-09-08T09:15:55Z

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

Hisava в 09:14, 8 сентября 2016

2016-09-08T09:14:30Z

Hisava: /* Полный текст функции */

2016-09-08T09:14:15Z

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

Hisava в 05:32, 27 апреля 2016

2016-04-27T05:32:59Z

Hisava: Новая страница: «XMLNode - это функция, описанная в файле QrAddFn2.pas XMLNode( XMLDocument ) Описание: Xml-Node = Полный текст фу…»

2016-04-27T05:28:10Z

Новая страница: «XMLNode - это функция, описанная в файле QrAddFn2.pas XMLNode( XMLDocument ) Описание: Xml-Node = Полный текст фу…»

Новая страница

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;

@@ Строка 9: / Строка 9: @@
 = Смотрите также =
 [[Полезные функции]]
 [[XMLDocument]]

@@ Строка 5: / Строка 5: @@
      node := [[XMLNode]]( doc )
      for i := 0 to [[XmlNodeProp]]( node, "ChildNodeCount" ) - 1
-       aa := [[XmlNodeProp]]( XmlNodeProp( node, "ChildNodes", i ), "NODEVALUE" )
+       aa := [[XmlNodeProp]]( [[XmlNodeProp]]( node, "ChildNodes", i ), "NODEVALUE" )
      next
 = Смотрите также =

@@ Строка 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
 = Смотрите также =
+[[Полезные функции]]
-[[XMLDocument]]
 [[Функции Delphi]]
-[[Полезные функции]]
+[[XMLDocument]]

@@ Строка 7: / Строка 7: @@
 = Пример =
-     node := [[xmlNode]]( doc )
+     node := [[XMLNode]]( doc )
      for i := 0 to [[XmlNodeProp]]( node, "ChildNodeCount" ) - 1
        aa := [[XmlNodeProp]]( XmlNodeProp( node, "ChildNodes", i ), "NODEVALUE" )

@@ Строка 26: / Строка 26: @@
 = Смотрите также =
 [[Функции Delphi]]
 [[Полезные функции]]

@@ Строка 5: / Строка 5: @@
 Описание: 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;
 = Смотрите также =

← Предыдущая		Версия 09:14, 8 сентября 2016
Строка 1:		Строка 1:
−	XMLNode - это функция~~, описанная в файле~~ QrAddFn2.pas	+	XMLNode - это функция ( [[QrAddFn2.pas]] )

	XMLNode( [[XMLDocument]] )		XMLNode( [[XMLDocument]] )

← Предыдущая		Версия 09:14, 8 сентября 2016
Строка 24:		Строка 24:
	end;		end;
	end;		end;
		+
		+	= Смотрите также =
		+
		+	[[Функции Delphi]]
		+
		+	[[Полезные функции]]