![]() |
#3 |
Участник
|
Вот пример кода:
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... |
|