@zalespl: dużego doświadczenia z XML nie mam, a z TXmlDocument
to już maluteńkie. Ale kombinował bym tak, jak pokazałem poniżej. Działa ok - sprawdzone. Oczywiście wyświetlanie danych sobie dopasuj po swojemu. To tylko przykład pisany na szybko.
//...
uses
xmldoc, xmlintf;
//...
const
Xml_FileName = 'D:\test.xml';
var
I : integer;
XML : TXMLDocument;
DBNode, EntryNode : IXMLNode;
begin
xML := TXMLDocument.Create(Self);
XML.LoadFromFile(Xml_FileName);
for I := 0 to XML.DocumentElement.ChildNodes.Count - 1 do
begin
DBNode := XML.DocumentElement.ChildNodes[I];
EntryNode := DBNode.ChildNodes['t2'];
if EntryNode <> nil then
begin
ShowMessage(EntryNode.Text);
end;
end;
XML.Free;
end;
@TLesiu: fajnie, że chcesz pomóc i odpowiadasz. Jednak na przyszłośc zastanów się dobrze co komuś proponujesz. Nie po to pytający chce skorzystać z dobrodziejstw XML'a, aby wczytać go i operować na jego fizycznym tekscie aby uzyskać to co chce. Takie coś było by - według mnie - do zaakceptowania tylko pod WinAPI, gdy nie dysponujemy "obrobionym" modułem, który do parsowania XML'a korzysta tylko z modułu Windows
lub innych modułów, które tylko jego używają lub używają innych odnoszących się tylko do Windows
. Wtedy pozostaje kombinowanie z funkcjami do uzyskiwania rezultatów na tekstcie, jak choćby Pos
, Copy
i Delete
.