[gelöst] XML Attribute - einfacher Zugriff

[matashen]

Ich will das Attribut Value ändern in Abhängigkeit des Wertes von Attribute Name

Z.B. mal einfach so rausgetippt
und keine Ahnung wie ich das machen muss damit das funktioniert

Delphi-Quellcode:

function read_value(parameterstr:String):string;
begin;
result:=xmlfile.documentelement.ChildNodes('/Asys/Product/Datas/Data[@name="'+parameterstr+'"]');
end;

procedure Change_Value(parameterstr,newvalue:String);
begin;
xmlfile.documentelement.ChildNodes('/Asys/Product/Datas/Data[@name="'+parameterstr+'"]'):=newvalue;
end;

Damit will ich in die XML Struktur zugreifen um die Value auszulesen oder zu ändern

[Der schöne Günther]

Ach sooo.

Dein "einfach mal so rausgetippt" ist doch schon deine Lösung: Mittels XPath den gewünschten Knoten finden. Im Beispiel dass dein Dokument so aussieht

Code:

<Asys>
   <Product>
      <Datas>
         <DATA name="val_masksizex" minv="1" maxv="2" value="460000" />
         <DATA name="val_masksizey" minv="1" maxv="2" value="460000" />
         <DATA name="val_maxdistanceerror" minv="1" maxv="2" value="180" />
         <DATA name="val_operationmode" minv="1" maxv="2" value="0" />    
      </Datas>
   </Product>
</Asys>

änderst du hiermit den Wert eines gewünschten Knotens einfach ab:

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
var
   xmlDoc:         IXMLDocument;
   rootNode:      IXMLNode;
   wantedNode:      IXMLNode;
begin
   xmlDoc := LoadXMLData(Memo1.Text);

   rootNode := xmlDoc.DocumentElement;
   rootNode := TXpathHelper.SelectNode(rootNode, '/Asys/Product/Datas');

   wantedNode := TXPathHelper.SelectNode(rootNode, './DATA[@name="val_operationmode"]');
   wantedNode.Attributes['val_operationMode'] := '-99';

   memo2.Text := xmlDoc.DocumentElement.XML;
end;

Ich war so frei den "TXPathHelper" von hier zu nehmen

[matashen]

OK Danke Günther,

dann hat bei meinem Denkansatz ja nur noch der Abschluss gefehlt.
(Herr lass Hirn regnen)

Ich glaub ich brech jetzt ab und gib mir ein Freibad - bei der Hitze arbeitet mein Hirn nimmermehr


nochmal Dankeschön und schönes Wochenende