In XML löschen und weitere Einträge aktualisieren

[Akut-Programming]

Hi Chris!

Dein Posting war mir wie immer ne rießen Hilfe! Musste dann zwar noch was abändern, so funzt es aber prima:

Delphi-Quellcode:

var
  node, parentnode: IXMLDOMNode;
  i,i2: integer;
  id,xmlXSL: String;
begin
  i:=lv_eintraege.Selected.Index;
  id:=lv_eintraege.Items[i].Caption;
  xmlXSL:='/PlanView/termin[terminid="'+ID+'"]';
  node :=xmlDoc.documentElement.selectSingleNode(xmlXSL);
  parentnode := node.parentNode;
  parentnode.removeChild(node);
  node := nil;
  parentnode := nil;
  frm_terminplaner.UpdateList;
  for i2:=0 to lv_eintraege.Items.Count-1
  do begin
    id:=lv_eintraege.Items[i2].Caption;
    xmlXSL:='/PlanView/termin[terminid="'+id+'"]';
    node := xmlDoc.documentElement.selectSingleNode(xmlXSL);
    node.selectSingleNode('terminid').text:=inttostr(i2+1);
  end;
  xmlDoc.save(frm_terminplaner.instpath + xmlfilename);
  frm_terminplaner.UpdateList;

[edit]Stelle euch dann den Link zum Terminplaner unter "Freeware" zur Verfügung, wenn meine Seite fertig ist - Dann könnt ihr euch das Teil mal angucken. Wäre dann Version 1.4[/edit]
Greetz,