Модератор: Модераторы
Код: Выделить всё
<?xml version="1.0" encoding="UTF-8"?>
<ttt>
<sss>000</sss>
<tit>1</tit>
<Q1>
<tim>13</tim>
<A1>
<S>se1</S>
<T>te1</T>
</A1>
<A2>
<S>se1</S>
<T>te2</T>
</A2>
</Q1>
....
</ttt>
Код: Выделить всё
<A1>
<S>se1</S>
<T>te1</T>
</A1>
К примеру, в simplexml куст можно получить так: XMLdoc.DocumentElement.SelectSingleNode('Q1').XMLziceptor писал(а):Как вывести, к примеру в memo часть XML документа? Есть встроенный механизм вывода куста?
ziceptor писал(а):Как вывести, к примеру в memo часть XML документа? Есть встроенный механизм вывода куста?
Код: Выделить всё
var L: TStringList;
begin
L.LoadFromFile('');
...
end;
Зачем грузить файл в StringList и городить свой огород, если все данные можно получить штатными средствами.. достаточно написать свою функцию, что и сделал.ziceptor писал(а):Работаю штатными средствами (DOM, XMLRead, XMLWrite).
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
Q1: TDOMNode;
Doc: TXMLDocument;
Data: TStringStream;
begin
Data := TStringStream.Create(MemoData.Lines.Text);
try
ReadXMLFile(Doc, Data);
finally
Data.Free;;
end;
Q1 := Doc.DocumentElement.FindNode('Q1');
Data := TStringStream.Create('');
try
WriteXML(Q1, Data);
MemoResult.Lines.Text := Data.DataString;
finally
Data.Free;;
end;
end;ziceptor писал(а):Если есть у кого-нибудь желание, то можете портировать под Lazarus/FPC.
wavebvg писал(а):Под FPC, помимо вошедших
Просто указал, для сравнения, что есть такой-то модуль.