ich möchte gerne eine xml-Datei einlesen. Das klappt auch fast. Ich scheitere daran wenn die xml datei mehrere "Kindelemente" hat.
so sieht meine xml Datei aus
Code: Alles auswählen
<Komplett>
<Eltern>
<Kind>
<KindVomKind1>1</KindVomKind1>
<KindVomKind2>2</KindVomKind2>
<KindVomKind3>3</KindVomKind3>
<KindVomKind4>4</KindVomKind4>
</Kind>
</Eltern>
</Komplett>
Hier ist mein Quellcode:
Code: Alles auswählen
procedure TForm1.ButtonEinlesenClick(Sender: TObject);
var
Documento: TXMLDocument;
i, j: Integer;
begin
ReadXMLFile(Documento, 'test.xml');
Memo.Lines.Clear;
with Documento.DocumentElement.ChildNodes do
begin
for i := 0 to (Count - 1) do
begin
Memo.Lines.Add(Item[i].NodeName );
for j := 0 to (Item[i].ChildNodes.Count - 1) do
begin
Memo.Lines.Add('-' + Item[i].ChildNodes.Item[j].NodeName);
Memo.Lines.Add('--' + Item[i].ChildNodes.Item[j].FirstChild.NodeName);
Memo.Lines.Add('---' + Item[i].ChildNodes.Item[j].FirstChild.NodeValue);
end;
end;
end;
Documento.Free;
end;
die Ausgabe sieht dann so aus:
Code: Alles auswählen
Eltern
-Kind
--KindVomKind1
---
Der Wert "1" von Position "kindVonKind1" wird nicht angezeigt. Ich möchte gerne hierbei alle Elemente in dem Memo ausgeben lassen.
Hat jemand eine Idee wie ich das umsetzen kann??
Gruß
Steffen