Hallo ich will in meinem
XML-Dokument einen Konten ersetzten das
XML sieht ungefähr so aus:
Delphi-Quellcode:
<script nummer="lfd Nummer" author="Author">
<Beschreibung>Das ist die Beschreibung</Beschreibung>
<Befehl>Das ist der Befehl</Befehl>
</script>
Indem
Xml-Dokument gibt es mehrere Script-Knoten. Ich suche nach einer bestimmten Nummer und will dann bei diesem Knoten Beschreibung und Befehl
ändern.
Ich habe das ungefähr so gedacht:
Delphi-Quellcode:
procedure TForm1.KnotenErsetzen(Knoten: IXMLNode);
begin
XMLDoc.LoadFromFile(XMLDoc.FileName);
Knoten.Attributes['
Nummer'] := ENummer.Text;
case CBAuthor.ItemIndex
of
0: Knoten.Attributes['
Author'] := CBAuthor.Items.Strings[0];
1: Knoten.Attributes['
Author'] := CBAuthor.Items.Strings[1];
2: Knoten.Attributes['
Author'] := CBAuthor.Items.Strings[2];
end;
Knoten.ChildValues['
Beschreibung'] := RBeschreibung.Text;
Knoten.ChildValues['
Befehl'] := RBefehl.Text;
//Einrücken und speichern im XML-Document
XMLDoc.Options := [doNodeAutoIndent];
XMLDoc.SaveToFile(XMLDoc.FileName);
end;
Leider funtioniert dies nicht. Kann mir vieleicht jemand helfen?