XML Komplett auslesen

[Christian18]

Zitat von Mackhack:

Zeig doch mal den Code den du bisher hast!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var Xml : TXMLDocument;
      s   : String;
begin
  Xml:=TXMLDocument.Create(Application);
  try
    Xml.FileName:=ExtractFilePath(Application.ExeName) + 'Xml.lng';
    Xml.Active:=True;

    s:=Xml.DocumentElement.ChildNodes['UMain'].ChildNodes['Button'].Attributes['Name'];
    ShowMessage(s);
  finally
    Xml.Destroy;
  end;
end;