XMLDOCUMENT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «XMLDocument = Смотрите также = XMLNode») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | XMLDocument | + | XMLDocument - это функция, описанная в файле QrAddFn2.pas |
| + | |||
| + | XMLDocument( xmlfile ) | ||
| + | |||
| + | Чтение XML файла | ||
| + | |||
| + | = Полный текст функции = | ||
| + | |||
| + | type | ||
| + | TQrEvXMLDocument=class(TQREvElementFunction) | ||
| + | public | ||
| + | function Calculate: TQREvResult; override; | ||
| + | end; | ||
| + | |||
| + | function TQrEvXMLDocument.Calculate: TQREvResult; | ||
| + | begin | ||
| + | Result := NilValue; | ||
| + | if (ArgList.Count >= 1) and (Argument(0).Kind = ResString) then | ||
| + | begin | ||
| + | Result.Kind := ResObject; | ||
| + | Result.ObjResult:=TXMLDocument.Create(Application); | ||
| + | TXMLDocument(Result.ObjResult).LoadFromFile(Argument(0).StrResult); | ||
| + | end; | ||
| + | end; | ||
= Смотрите также = | = Смотрите также = | ||
[[XMLNode]] | [[XMLNode]] | ||
Версия 08:34, 27 апреля 2016
XMLDocument - это функция, описанная в файле QrAddFn2.pas
XMLDocument( xmlfile )
Чтение XML файла
Полный текст функции
type
TQrEvXMLDocument=class(TQREvElementFunction)
public
function Calculate: TQREvResult; override;
end;
function TQrEvXMLDocument.Calculate: TQREvResult;
begin
Result := NilValue;
if (ArgList.Count >= 1) and (Argument(0).Kind = ResString) then
begin
Result.Kind := ResObject;
Result.ObjResult:=TXMLDocument.Create(Application);
TXMLDocument(Result.ObjResult).LoadFromFile(Argument(0).StrResult);
end;
end;
