Hallo ich habe ein Problem mit dem Einfügen einese Knotens in ein bestehendes
XML-Document. Ich habe folgenden Code geschrieben und benutzte Delphi 7:
Delphi-Quellcode:
procedure TForm1.BSpeichernClick(Sender: TObject);
var
NewScript: IXMLNode;
ValueScript: IXMLNode;
begin
NewScript := XMLDocument1.DocumentElement.AddChild('
Script');
//Erstellen der Attribute
if CBDBTyp.ItemIndex = 0
then
NewScript.Attributes['
DB-Typ'] := '
SQL-Server'
else
NewScript.Attributes['
DB-Type'] := '
Oracle';
NewScript.Attributes['
Nummer'] := ENummer.Text;
if CBAuthor.ItemIndex = 0
then
NewScript.Attributes['
Author'] := '
CD';
if CBAuthor.ItemIndex = 1
then
NewScript.Attributes['
Author'] := '
FV';
if CBAuthor.ItemIndex = 2
then
NewScript.Attributes['
Author'] := '
JSP';
//Erstellen der Elemente
ValueScript := NewScript.AddChild('
Beschreibung');
ValueScript.Text := MBeschreibung.Text;
ValueScript := NewScript.AddChild('
Befehl');
ValueScript.Text := MSQL.text;
end;
Das Problem ist, ich bekomme keine Fehlermeldung beim ausführen. Aber in dem
XML-Document wird kein Knoten eingefügt.
Hat vieleicht jemand eine Idee woran das liegen könnte?