In XML schreiben, nachdem Meldung angezeigt!

[Tpercon]

Zitat von Akut-Programming:

Hi Leudz!!

Ich will nach dem anzeigen einer Message in ne XML Datei schreiben, nur schreibt er immer in den Eintrag vor dem Eintrag in dem ich eigentlich schreiben will. Kann sich das ma jemand angucken...

Delphi-Quellcode:

procedure Tfrm_terminplaner_main.Timer2Timer(Sender: TObject);
var
  i: integer;
  node: IXMLDOMNode;
  newTermin, newSub: IXMLDOMNode;
begin
    for i:=0 to lv_eintraege.Items.Count-1 do begin
      if (StrtoDate(lv_eintraege.Items[i].SubItems[1])=date)
      and (StrtoTime(lv_eintraege.Items[i].SubItems[2])>=time)
      and (xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(i)+'"]/AlertShowed').Text='_')
      then begin
        ShowMessage('Ihr Termin ('+lv_eintraege.Items[i].SubItems[0]+') beginnt!');
        node := xmlDoc.documentElement.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(i)+'"]');
        node.selectSingleNode('AlertShowed').text:='x';
        xmlDoc.save(frm_terminplaner_main.instpath + xmlfilename);
      end;
    end;
end;

Das Programm sollte mit dem schreiben in die XML nicht warten, bis in der Meldung auf OK geklickt wurde, sondern wenn sie angezeigt wird.

Dann schreibe doch die ShowMessage Zeile mal hinter dem .save! Dann wird es auch zuerst gespeichert.
Geht das speichern nicht mit:

Delphi-Quellcode:

xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(i)+'"]/AlertShowed').Text:='x';
xmlDoc.save(frm_terminplaner_main.instpath + xmlfilename);