AddChild funktioniert nicht

[angos]

Hi,

du hattest mehrere kleine Fehler drin. Dein Hauptproblem wird gewesen sein, dass dein XMLDocument keinen Owner hatte. Hier einmal der korrigierte Source:

Delphi-Quellcode:

procedure AddToValidate(text: string);
var
  XMLDocument1: TXMLDocument; // Fehler 1
  iNode: IXMLNode;
  strDummy: string;
  b_flag: bool;
begin
  strDummy := 'C:\validate.xml';
  strDummy := StringReplace(strDummy, '/', '\', [rfReplaceAll, rfIgnoreCase]);
  if (FileExists(strDummy) = true) then
  begin
    XMLDocument1 := TXMLDocument.Create(Application);  // Fehler 2
    XMLDocument1.LoadFromFile(strDummy);  // Fehler 2

    XMLDocument1.Active := True;
    XMLDocument1.DocumentElement.AddChild('mat');
    b_flag := XMLDocument1.DocumentElement.HasChildNodes;

    iNode := XMLDocument1.DocumentElement;
    XMLDocument1.DocumentElement.ChildNodes.FindNode('valid_serial').AddChild('materialnr');
    XMLDocument1.DocumentElement.ChildNodes.FindNode('valid_serial').ChildNodes.FindNode('materialnr').Text := text;
    XMLDocument1.SaveToFile(strDummy); // Fehler 3
  end;
end;