XML: Kopieren einer kompletten XML Struktor

[DerDan]

Hallo,

dein Hinweis mit dem Anschauen und deine anderen Hinweise habem mich auf diese Lösung gebracht:

Code:

procedure TForm20.Button4Click(Sender: TObject);
var
  XMLCutprogramList  : IXMLCutprogramsType;
  XMLCutprogramCopy : IXMLCutprogramsType;
  XMLDocument  : IXMLDocument;
begin
  Memo1.Lines.Clear;
  // orig:
  XMLCutprogramList := LoadCutprograms(ed1.Text);
  Memo1.Lines.Add(Format ('orig. Count: %d', [XMLCutprogramList.Count]));

  XMLDocument := LoadXMLData(XMLCutprogramList.XML);
  XMLCutprogramCopy := GetCutprograms(XMLDocument);
  Memo1.Lines.Add(Format ('1 copy. Count: %d', [XMLCutprogramCopy.Count]));
end;

und die Funktioniert. Vielen Dank

mfg

DerDan