Einzelnen Beitrag anzeigen

Yheeky

Registriert seit: 7. Jun 2002
1.339 Beiträge
 
#22

Re: Suche Alternative zu Array

  Alt 17. Apr 2008, 21:53
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!
  Mit Zitat antworten Zitat