Zitat von
marabu:
Hallo Christian,
aufregender Code. Schau dir aber mal deinen Index an:
for J := 0 to XML.DocumentElement.ChildNodes[I {XMLNode}].ChildNodes.Count - 1 do
Gute Nacht
Ohje!!
Das soll natürlich so heissen:
Delphi-Quellcode:
function TForm1.LeseDaten(XMLString :
String) : TList;
var I, J : integer;
neuerDatensatz : PDaten;
tempList : TList;
begin
XML := newXMLDocument;
XML.XML.Text := XMLString;
XML.Active := True;
// Datensatzlist erstellen
tempList := TList.Create;
// Werte zählen
for I := 0
to XML.DocumentElement.ChildNodes.Count - 1
do
begin
for J := 0
to XML.DocumentElement.ChildNodes[I].ChildNodes.Count - 1
do
begin
// neuen Datensatz erstellen
neuerDatensatz := new(PDaten);
neuerDatensatz.ID := i;
neuerDatensatz.Key :=
XML.DocumentElement.ChildNodes[I].ChildNodes[J].NodeName;
neuerDatensatz.Value :=
XML.DocumentElement.ChildNodes[I].ChildNodes[J].NodeValue;
tempList.Add(neuerDatensatz);
// Lösche Datensatz
Dispose(neuerDatensatz);
end;
end;
result := tempList;
end;
PS: War das gute Nacht auf den Code bezogen?
Wenn nicht, dir auch ne gute Nacht!
