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