xml-node-attribute

[marabu]

Hallo salem01,

hier ein wenig ungetester Code für dich zum Studieren. Du schreibst von D6 und hast deinen thread unter .NET klassifiziert - scheint ein Versehen zu sein.

Delphi-Quellcode:

function FahrzeugRecordAnlegen(var xml: string): string;
var
  doc: IXMLDOMDocument;
  nLast, nSucc: IXMLDOMNode;
  nextID: integer;
begin
  doc := CoDOMDocument.Create;
  with doc do
  begin
    async := false;
    loadXML(xml); // can fail
  end;

  nLast := doc.selectSingleNode('//autodaten[last()]');
  if Assigned(nLast) then
  begin
    with nLast as IXMLDOMElement do
      nextID := getAttribute('id');
    with nLast do
      nSucc := cloneNode(true) as IXMLDOMElement;;
    with nLast as IXMLDOMElement do
      setAttribute('id', IntToStr(nextID));
    nLast.parentNode.appendChild(nSucc);
  end else
  begin
    // your turn now
  end;
  Result := doc.xml;
end;

Grüße vom marabu