So jetzt hab ich es gelöst..
mit Blup seiner Variante .. Danke Blup
Variante himitsu sieht zwar irgendwie einfacher aus ..
aber leider bekommt man bzw. hab ich es nicht gefunden
genauere Infos dazu.
musste nur wie himitsu es erwähnte natürlich den rootknoten "Document" mit angeben
die Procedure sieht jetzt so aus ..
Code:
procedure SetIndexValue(ADoc: IXMLDocument; const AIndex, AValue: string);
var
IndexNode, Node: IXmlNode;
i: Integer;
begin
IndexNode := ADoc.ChildNodes['Document'].ChildNodes.Nodes['Index'];
{Suchen und Ändern}
for i := 0 to IndexNode.ChildNodes.Count - 1 do
begin
Node := IndexNode.ChildNodes[i];
if (Node.NodeName = 'Var') and (Node.Attributes['Name'] = AIndex) then
begin
Node.Attributes['Value'] := AValue;
Exit;
end;
end;
{nicht gefunden, neu anlegen}
Node := IndexNode.AddChild(AIndex);
Node.Attributes['Name'] := AIndex;
Node.Attributes['Value'] := AValue;
end;
dann passt das auch
vielen Dank ..
Blup & himitsu
@himitsu googeln tu ich immer vorher .. nur wenn ich nach Stunden keine Lösung finde
frag ich mal in ein Forum nach .. natürlich nicht um nur auf Google hingewiesen zu werden
nur mal Rande mit erwähnt..