ok
hier der jetztige quellcode meiner datei und wie ich sie erstelle
Delphi-Quellcode:
{ Inhalt der XML Datei auf einer Variable erstellen }
xml_code := '
<?xml version="1.0" encoding="UTF-8"?>'+slinebreak
+'
<WOCHENBERICHT>'+slinebreak
+'
<KW>'+kalender_wochen_auswahl+'
</KW>'+slinebreak
+'
<JAHR>'+jahres_auswahl+'
</JAHR>'+slinebreak
+'
<EINTRAEGE>'+slinebreak
+'
<MONTAG><![CDATA['+AnsiToUtf8(Hauptmenu.montag_text.Text)+'
]]></MONTAG>'+slinebreak
+'
<DIENSTAG><![CDATA['+AnsiToUtf8(Hauptmenu.dienstag_text.Text)+'
]]></DIENSTAG>'+slinebreak
+'
<MITTWOCH><![CDATA['+AnsiToUtf8(Hauptmenu.mittwoch_text.Text)+'
]]></MITTWOCH>'+slinebreak
+'
<DONNERSTAG><![CDATA['+AnsiToUtf8(Hauptmenu.donnerstag_text.Text)+'
]]></DONNERSTAG>'+slinebreak
+'
<FREITAG><![CDATA['+AnsiToUtf8(Hauptmenu.freitag_text.Text)+'
]]></FREITAG>'+slinebreak
+'
</EINTRAEGE>'+slinebreak
+'
</WOCHENBERICHT>';
{ Dateierzeugung }
AssignFile(MyFile, dateiname_speichern );
ReWrite(MyFile);
{ Inhalt der Variable in die Textdatei schreiben }
WriteLn(MyFile, xml_code );
CloseFile(MyFile);
und hier der quellcode zum auslesen der datei
Delphi-Quellcode:
{ wenn eine Datei exsistiert werden die Dateifelder mit deren Daten gefüllt }
if(FileExists(dateiname_laden))
then begin
// Anlegen eines Objektes zum Auslesen
XML_File := newXMLDocument;
// Datei laden
XML_File.LoadFromFile(dateiname_laden);
// Einträge auslesen
Hauptmenu.montag_text.Text := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['MONTAG'].text;
Hauptmenu.dienstag_text.Text := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['DIENSTAG'].Text;
Hauptmenu.mittwoch_text.Text := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['MITTWOCH'].Text;
Hauptmenu.donnerstag_text.Text := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['DONNERSTAG'].Text;
Hauptmenu.freitag_text.Text := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['FREITAG'].Text;
end;