![]() |
Node löschen
Hallo
ich tu mir etwas schwer ich möchte eine node mit ihren unternodes löschen sind immer gefüllt
Delphi-Quellcode:
ich habe euch schon einige versuche gemacht
procedure TFWunsch.ILoeschen1Click(Sender: TObject);
var auswahl: string; i:integer; begin Wunsch.FWunsch.LBKonst.ClearSelection; auswahl := Wunsch.FWunsch.LBWunschSpiele.Items.Strings[Wunsch.fWunsch.LBWunschSpiele.ItemIndex]; Wunsch.FWunsch.Lauswahl.Caption := auswahl; XML_File := newXMLDocument; XML_File.LoadFromFile('Badminton.xml'); for I := 0 to XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes.Count - 1 do begin if(XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes[i].ChildNodes['NAME'].Text = auswahl) then begin //// hier end; end; end; awa irgendwie klappt das ned wo //// hier steht soll der knoten [i] gelöscht werden danke stephie |
Re: Node löschen
Hi,
ich gehe mal davon aus, dass es nur einen Knoten mit dem Text auswahl geben kann. Wenn nicht, musst du das break weg- und die Schleife rückwärts laufen lassen, sonst überspringst du nach jedem Löschen einen Knoten.
Delphi-Quellcode:
// ...
XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes.Delete(i); break; // ... |
Re: Node löschen
Hi
Warum macht das hier garnichts? in Auswahl steht der korrekte name drin !!!
Delphi-Quellcode:
for I := 0 to XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes.Count - 1 do
begin if(XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes[i].ChildNodes['NAME'].Text = auswahl) then begin XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes.Delete(i); LB_fuellen; break; end; end; |
Re: Node löschen
Kann mir hier echt keiner Helfen??? :cry:
Wünsche allen im Forum frohe :party: Stephie |
Re: Node löschen
Hallo Stephie,
du hast vergessen die dazugehörige XML-Datei zu zeigen. Wenn dein Code kompiliert werden kann, aber nicht das erwartete Ergebnis bringt, dann ist die XML-Datei nötig um den Fehler zu lokalisieren. Grüße vom marabu |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:47 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz