|
Вот пример кода:
IF ISCLEAR(gXMLDoc) THEN CREATE(gXMLDoc);
//Загрузка файла
gXMLDoc.load(FileName);
lRecr.OPEN(TableNo);
IF ClearTable THEN lRecr.DELETEALL(FALSE);
//корневой элемент
currElem := gXMLDoc.selectSingleNode('root');
//Выборка узлов
tableNodes := currElem.selectNodes('./t[@n='''+ FORMAT(TableNo) + ''']');
//обход дерева
FOR k:=0 TO tableNodes.length -1 DO BEGIN...
|