Wie kann ich ein Attribut aus einer Node auslesen?

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Euro2083.

Hier eine kleine Gehhilfe:

Delphi-Quellcode:

procedure TDemoForm.ListBox1Click(Sender: TObject);
var
  NodeList: IXMLDOMNodeList;
  xmlDoc: IXMLDOMDocument2;
  i: Integer;
  nStandard, nName: IXMLDOMElement;
  sLeitsatz: string;
begin
  // ...
    NodeList := xmlDoc.selectNodes('root/geha/standard');
    for i := 0 to Pred(Nodelist.length) do
    begin
      nStandard := NodeList[i] as IXMLDOMElement;
      //  nName := nStandard.firstChild as IXMLDOMElement;  // EDIT
      sLeitsatz := VarToStr(nStandard.getAttribute('leitsatz'));
      // ...
    end;
  // ...
end;

Getippt und nicht getestet.

Freundliche Grüße