XML Eintrag löschen

[Akut-Programming]

Hi! :lol:

Ist es möglich eine subNode komplett zu löschen. Also wenn ich z.B. alle gespeicherten Daten zu einem Film, der einer FilmID zugeordnet ist, löschen will, dann will ich ja alle Infos z.B. von FilmID "1" gelöscht haben.

[MathiasSimmack]

Ja, das geht. Falls du Code willst, musst du uns aber mal ein bisschen von deiner XML-Struktur zeigen. So ganz ohne Vorlage wird´s schwer. :wink:

[Sanchez]

hallo,

so z.B.

Delphi-Quellcode:

  node :=xmlDoc.selectSingleNode('/werte/eintrag[id="'+itoa(id,0)+'"]');
  parentnode := node.parentNode;
  parentnode.removeChild(node);

grüße, daniel

[Akut-Programming]

Also Mathias, hier is n Stücke aus meiner XML

Code:

<PlanView>
<termin>
  <terminid>1</terminid>
  <terminbez>TestTermin1</terminbez>
  <datum>03.09.2003</datum>
  <uhrzeit>12:00</uhrzeit>
  <bemerkung>versuchmers ma!</bemerkung>
</termin>
<termin>
  <terminid>2</terminid>
  <terminbez>TestTermin2</terminbez>
  <datum>03.09.2003</datum>
  <uhrzeit>12:00</uhrzeit>
  <bemerkung>versuchmers nochma!</bemerkung>
  </termin>
</PlanView>

Reicht dir das? :roll:

[Akut-Programming]

Zitat:

Zitat von Sanchez0815

hallo,
so z.B.

Delphi-Quellcode:

node :=xmlDoc.selectSingleNode('/werte/eintrag[id="'+itoa(id,0)+'"]');
  parentnode := node.parentNode;
  parentnode.removeChild(node);

grüße, daniel

So hab ichs versucht, muss ich noch ne uses eintragen oder so, weil er bei mir meint itoa(id,0) ist kein definierter Bezeichner. Ebenfalls parentnode.

Sorry für die vielleicht dummen fragen. Hab nur grad erst mit XML angefangen.

[Sanchez]

Sorry itoa musst durch StrToInt ersetzen.
Parentnode musst du definieren - gleich wie node

Delphi-Quellcode:

var parentnode, node: IXMLDOMNode;

grüße, daniel

[Akut-Programming]

Und "id" in StrToInt wäre dann sozusagen bei mir die terminid, oder??! Da bei mir die Meldung kommt, das id n undefinierter Bezeichner ist. :oops:

[Sanchez]

Genau

[Akut-Programming]

Also im Moment würde es so bei mir aussehen. Um XML Einträge zu löschen, habe ich ein Bild eingefügt, welches dann mit einem OnCLick Ereignis belegt ist...

Delphi-Quellcode:

procedure Tfrm_planview_main.Image2Click(Sender: TObject);
var
  node, parentnode: IXMLDOMNode;
  id: integer;
begin
  id:=StrToInt(xmlDoc.selectSingleNode('/PlanView/termin/terminid').text);
  node :=xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
  parentnode := node.parentNode;
  parentnode.removeChild(node);
end;

Im Programm selber bekomme ich keine Fehlermeldung, aber das löschen klappt trotzdem nicht :cry:

[Sanchez]

Du musst nach dem löschen noch

Delphi-Quellcode:

xmlDoc.save(filename);

machen, damit du es in der Datei übernimmst

PS: Gegebenenfalls musst du noch deine Anzeige updaten um die Änderung in deinem Prog sehen zu können

[Akut-Programming]

Ach man :evil: es geht immer noch nich. Mit diesem Code...

Delphi-Quellcode:

procedure Tfrm_planview_main.Image2Click(Sender: TObject);
var
  node, parentnode: IXMLDOMNode;
  id: integer;
begin
  id:=lv_eintraege.Selected.Index;
  node :=xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
  parentnode := node.parentNode;
  parentnode.removeChild(node);
  xmlDoc.save(frm_planview_main.instpath + xmlfilename);
  frm_planview_main.UpdateList;
  frm_planview_main.lv_eintraege.AlphaSort;
end;

...bekomme ich ne Zugriffsverletzung. :?: :?: :?: Muss ich das verstehen?

[Sanchez]

Delphi-Quellcode:

procedure Tfrm_planview_main.Image2Click(Sender: TObject);
var
  node, parentnode: IXMLDOMNode;
  id: integer;
begin
  id:=lv_eintraege.Selected.Index;
  node :=xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
  
  if node <> nil then begin
    parentnode := node.parentNode;
    parentnode.removeChild(node);
    xmlDoc.save(frm_planview_main.instpath + xmlfilename);
    frm_planview_main.UpdateList;
    frm_planview_main.lv_eintraege.AlphaSort;
  end;
end;

Ich denke mal, du hast keinen Node mit dieser id drinne. Besser schaust vorher ob node <> nil ist. Die Zufgriffsverletzung sollte zumindest weg sein.

[Akut-Programming]

Ja, jetzt hab ich zwar keine Zugriffsverletzung mehr, aber den letzten Eintrag der XML Datei kann er nicht löschen. Ich vermute er bekommt irgendwie die falsche ID oder so!?

[MathiasSimmack]

Ich würde auch vorher prüfen, ob der Knoten ungleich nil.
Aber hast du auch daran gedacht, dass Indexwerte wie

Zitat:

Zitat von Akut-Programming

Delphi-Quellcode:

id:=lv_eintraege.Selected.Index;

meist null-basierend sind, dein Index in der XML-Datei aber wahrscheinlich bei Eins beginnt?

[Akut-Programming]

@Mathias: ich habe weiter oben einen Auszug meiner XML Datei, könntest du dir das mal angucken. Und mir dann ma vielleicht beim Source helfen!?

[MathiasSimmack]

Brauche ich nicht. Der Beispielcode, den Sanchez zuletzt gepostet hat, ist funktionsfähig. Zumindest klappte das bei mir in den Grundzügen: ich habe deinen XML-Code aus dem Browser kopiert und über einen Button-Klick den ersten Knoten entfernen lassen.
(Das spezielle, was sich auf die List-View bezieht, habe ich weggelassen.)

´s ging.

Was mir noch einfällt, wäre, dass eben nicht der erwartete Index zurückgeliefert wird. Möglicherweise durch deine Sortierung der List-View. Vielleicht solltest du besser den Termineintrag überprüfen? Oder auf die Sortierung verzichten.

[Akut-Programming]

:bounce1: Alles klar, jetzt funzt´s auch bei mir. Es lag an der Sortierung! THX für die Hilfe!!! :dancer:

:dp:

Gruß,

[Akut-Programming]

:roll: Hmm so ganz scheints doch nich gelöst zu sein. Ich wollt jetzt grad ma meinen Eintrag bearbeiten und bekomme ne Zugriffsverletzung.

Delphi-Quellcode:

procedure Tfrm_edit.bn_speichernClick(Sender: TObject);
var
  id: string;
  node: IXMLDOMNode;
begin
  id := IntToStr(frm_terminplaner_main.lv_eintraege.SelCount);
  xmlDoc := frm_terminplaner_main.xmlDoc;
  node := xmlDoc.documentElement.selectSingleNode('/PlanView/termin[terminid="'+id+'"]');
  node.selectSingleNode('terminbez').text:=ed_terminbez.Text;// Hier bekomme ich die Zugriffsverletzung angezeigt
  node.selectSingleNode('datum').text:=DateToStr(cb_von_datum.Date);
  node.selectSingleNode('uhrzeit').text:=ed_von_uhrzeit.Text;
  node.selectSingleNode('bemerkung').text:=ed_bemerkung.Text;

  xmlDoc.save(frm_terminplaner_main.instpath + xmlfilename);
  frm_terminplaner_main.xmlDoc:=xmlDoc;
  frm_terminplaner_main.UpdateList;
end;

Kann mir da jemand helfen? :oops:

[Sanchez]

hallo,

Ich würde auf alle Fälle (wie schon vorher mal beschrieben) auf node <> nil überprüfen bevor du drauf zugreifts.

Ich schätze mal das wieder deine ID nicht in der File vorkommt.
Diese Zeile

Delphi-Quellcode:

  id := IntToStr(frm_terminplaner_main.lv_eintraege.SelCount);

Schätze ich ohne das Programm zu sehen als Fehler ein.
Am besten du setzt deine ID irgendwo ein dein Listview dazu rein (oder sonst wohin) und holst sie dir dann von dort raus.

grüße, daniel

[MathiasSimmack]

Hm,

Zitat:

Zitat von Akut-Programming

Delphi-Quellcode:

id := IntToStr(frm_terminplaner_main.lv_eintraege.SelCount);

"SelCount" ist doch die Anzahl der markierten Einträge, oder? Wenn du den dritten Eintrag von unten markierst, lautet das Ergebnis: Eins. Markierst du den ersten Eintrag, lautet das Ergebnis: Eins. Markierst du den ersten und den letzten Eintrag, lautet das Ergebnis: Zwei.

@Akut-Programming: Etwas mehr Sorgfalt bitte, und berücksichtige bitte den Tipp von Sanchez: Den Knoten auf <> NIL prüfen, bevor du darauf zugreifst! :roll:

[Akut-Programming]

Ja danke nochma, die Prozedur des ButtonClicks war noch nich mit dem aus dem Hauptform abgegelichen. Jetzt funzt´s widder. THX!!