Hmm.. nach ewigen versuchen und umschreiben bzw.
neu schreiben hats noch nich gefunzt.
Hier is mal der komplette Aufruf meiner Prozedur - Ich hoffe ihr könnt mir nochmal helfen?!
Delphi-Quellcode:
procedure Tfrm_terminplaner.Image2Click(Sender: TObject);
var
node, parentnode: IXMLDOMNode;
id,id2,i,i2: integer;
begin
if lv_eintraege.SelCount=1
then begin
Image1.Enabled:=true;
Image2.Enabled:=true;
end else
begin
Image1.Enabled:=false;
Image2.Enabled:=false;
end;
i:=lv_eintraege.Selected.Index;
id:=StrToInt(lv_eintraege.Items[i].Caption);
node :=xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
if node <> nil
then begin
parentnode := node.parentNode;
parentnode.removeChild(node);
if id=1
then begin
for i2:=1 to lv_eintraege.Items.Count
do begin
node := xmlDoc.documentElement.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
node.selectSingleNode('terminid').text:=IntToStr(id);
end;
end else
for i2:=1 to lv_eintraege.Items.Count-1
do begin
node := xmlDoc.documentElement.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(id)+'"]');
node.selectSingleNode('terminid').text:=IntToStr(id);
end;
status_03.Caption:='Der Termin wurde erfolgreich gelöscht!';
Timer1.Enabled:=true;
frm_terminplaner.UpdateList;
end;
xmlDoc.save(frm_terminplaner.instpath + xmlfilename);
frm_terminplaner.UpdateList;
Label2.Caption:='erfasste Termine ('+IntToStr(lv_eintraege.Items.Count)+')';
end;
[EDIT] Hier springt er immer in ne Zugriffsverletzung, weiß aber nicht warum??
node.selectSingleNode('terminid').text:=IntToStr(id);
Gruß,