XML auslesen

[Christian18]

Hallo,

hier nochmal mein Code, den ich bis jetzt habe.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var Xml  : TXMLDocument;
      XmlFile : String;
begin
  Xml:=TXMLDocument.Create(self);
  try
    XmlFile:='c:\XmlFile.xml';
    if FileExists(XmlFile) then
      begin
        Xml.FileName:=XmlFile;
        Xml.Active:=True;
      end
    else
      begin
        MessageDlg('Die XmlFile konnte nicht gefunden werden.', mtError, [mbOK], 0);
      end;
  finally
    Xml.Free;
  end;
end;

Und hier mein XmlFile:

XML-Code:

<?xml version="1.0" encoding="ISO-8859-1"?>
  <Language>
    <Button>
      <Button1 Caption="Neu" Tag="1" />
      <Button2 Caption="Bearbeiten" Tag="2" />
      <Button3 Caption="Löschen" Tag="3" />
      <Button4 Caption="Beenden" Tag="4" />
    </Button>

    <DBGrid>
      <Item1 Caption="Kunden - ID" Tag="1">
      <Item2 Caption="Vorname" Tag="2">
      <Item3 Caption="Name" Tag="3">
    </DBGrid>
  </Language>

Diese XmlFile müsste ich irgendwie auslesen und in einem Record speichern. Könnt ihr mir ein paar Tips geben?


LG Chris