XMLDOCUMENT
Материал из Фабиус wiki
Версия от 08:34, 27 апреля 2016; Hisava (обсуждение | вклад)
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;
