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