Hallo Wissende,

mit folgendem Code speichere ich Daten aus 4 Stringgrids und einem Edit in eine XML-Datei:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.btn_save_player_resClick(Sender: TObject);
var
  i : integer;
begin
  XML_EV_Players.LoadFromFile(Xml_Pfad + 'current/players.xml');

  with list_ev_players.Items.Objects[list_ev_players.ItemIndex] as TPlayerData do
    XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes['Flight'].NodeValue := ed_ev_player_flight_r1.Text;

  for i := 0 to 17 do begin
    with grd_r1 do begin
      with list_ev_players.Items.Objects[list_ev_players.ItemIndex] as TPlayerData do begin
          if XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes[i].ChildNodes['Hole'].NodeValue = i+1 then
            begin
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes[i].ChildNodes['Shots'].NodeValue := Cells[i+1,1];
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes[i].ChildNodes['Res'].NodeValue := Cells[i+1,2];
            end;
        end;
    end;
    with grd_r2 do begin
      with list_ev_players.Items.Objects[list_ev_players.ItemIndex] as TPlayerData do begin
          if XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round2'].ChildNodes[i].ChildNodes['Hole'].NodeValue = i+1 then
            begin
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round2'].ChildNodes[i].ChildNodes['Shots'].NodeValue := Cells[i+1,1];
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round2'].ChildNodes[i].ChildNodes['Res'].NodeValue := Cells[i+1,2];
            end;
        end;
    end;
    with grd_r3 do begin
      with list_ev_players.Items.Objects[list_ev_players.ItemIndex] as TPlayerData do begin
          if XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round3'].ChildNodes[i].ChildNodes['Hole'].NodeValue = i+1 then
            begin
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round3'].ChildNodes[i].ChildNodes['Shots'].NodeValue := Cells[i+1,1];
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round3'].ChildNodes[i].ChildNodes['Res'].NodeValue := Cells[i+1,2];
            end;
        end;
    end;
    with grd_r4 do begin
      with list_ev_players.Items.Objects[list_ev_players.ItemIndex] as TPlayerData do begin
          if XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round4'].ChildNodes[i].ChildNodes['Hole'].NodeValue = i+1 then
            begin
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round4'].ChildNodes[i].ChildNodes['Shots'].NodeValue := Cells[i+1,1];
              XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round4'].ChildNodes[i].ChildNodes['Res'].NodeValue := Cells[i+1,2];
            end;
        end;
    end;
  end;
  XML_EV_Players.SaveToFile(Xml_Pfad + 'current/players.xml');
end;

Davor sieht die XML Datei so aus:

zusammenfalten · markieren

Delphi-Quellcode:

  <?xml version="1.0" encoding="UTF-8" ?>
- <players>
- <player>
  <id>130116</id>
  <FName>Caroline</FName>
  <SName>AFONSO</SName>
  <Nat>France</Nat>
  <Ioc>FRA</Ioc>
- <Rounds>
- <Round1>
  <Flight />
- <Holes>
  <Hole>1</Hole>
  <Res />
  <Shots />
  </Holes>

Danach sieht es so aus. Ich weiss aktuell nicht warum der Code immer so zerstört wird und habe schon aus Verlegenheit vor verschiedensten Aktionen immer dem XMLDocument den Inhalt aus der XML-Datei zugewiesen...Btw.: Die Probleme traten erst auf, als ich anfing noch die Flight-Nodes in die Struktur aufzunehmen. Sobald ich den Flightcode deaktiviere ist alles gut.

zusammenfalten · markieren

Delphi-Quellcode:

  <?xml version="1.0" encoding="UTF-8" ?>
- <players>
- <player>
  <id>130116</id>
  <FName>Caroline</FName>
  <SName>AFONSO</SName>
  <Nat>France</Nat>
  <Ioc>FRA</Ioc>
- <Rounds>
- <Round1>
- <Flight>
  1
  <Hole />
  </Flight>
- <Holes>
  <Hole>1</Hole>
  <Res />
  <Shots />
  </Holes>

Wie man sehen kann, wurde dem Flight ein Wert von 1 zugewiesen. Das war auch so gewünscht, aber eigentlich sollte danach eine NodeList mit den Holes losgehen. Habt ihr Ideen?

Du solltest dringend XPath zum Abfragen bzw. Lesen des XML nutzen.

Man kann auch schon mit billigen Pfaden (ohne XPath) und mit Variablen so Einiges "wegoptimieren".

zusammenfalten · markieren

Delphi-Quellcode:

XML_EV_Players.ChildNodes[1].ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes[i].ChildNodes['Shots']

// Der Hauptknoten ist RootDocument. (es kann eh nur Einen geben)

XML_EV_Players.RootDocument.ChildNodes.Nodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes[i].ChildNodes['Shots']

// Warum gehst du hier über ChildNodes[x und da über ChildNodes.Nodes[x ?
// Eine Variante reicht doch.

XML_EV_Players.RootDocument.ChildNodes[Idx].ChildNodes['Rounds'].ChildNodes['Round1'].ChildNodes[i].ChildNodes['Shots']

// Pfade kann man zusammenfassen

XML_EV_Players.RootDocument.ChildNodes[Idx].ChildNodes['Rounds\Round1'].ChildNodes[i].ChildNodes['Shots']

// und man muß doch nicht immer wieder den selben Pfad auswerten ... vor den Schleifen speichern?

x := XML_EV_Players.RootDocument.ChildNodes[Idx];
for ... do
  y := x.ChildNodes['Rounds\Round1'].ChildNodes[i];
  for ... do
    y.ChildNodes['Shots'] := ...;

// aber über XPath kann man natürlich auch noch nette Dinge machen

PS: Du solltest dir mal die NodeType(n) ansehn,
denn MSXML hat nicht nur in seinem Baum (DOM) nicht nur Nodes und Teste, sondern auch Steuerdaten.
So gibt es z.B. bei jedem Zeilenumbruch oder bei Leerzeichen zwischen XML-Nodes in ChildNodes jeweils noch ein "Steuer"-Element.