|
|
|
|
#1
07.04.2019, 12:36
|
||||
|
||||
Парсинг XML
Приветствую, в XML не силен, нужно спарсить данные с файла сигнатур, набросал код с использование компонента SimpleXML, но выдает не все данные и с множеством пустых строк:
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
aDoc: IXmlDocument;
anElem2: IXmlNode;
rez: array of string;
i: integer;
procedure PrintNode(Node: IXmlNode);
var
str: string;
j: word;
NodeList: IXmlNodeList;
begin
Memo2.Lines.Add(trim(Node.GetAttr('name')));
Memo2.Lines.Add(trim(Node.GetChildText('ext')));
NodeList := Node.ChildNodes;
if NodeList.Count > 0 then
for j := 0 to NodeList.Count - 1 do
PrintNode(NodeList.Item[j]);
end;
begin
// Создаем пустой документ XML
aDoc := CreateXmlDocument;
// Считываем из файла
aDoc.Load(ExtractFilePath(ParamStr(0)) + '\mime-types.xml');
PrintNode(aDoc);
end;Код HTML:
|
Древовидный вид