Zeilenumbruch eines memofeldes in einer xml datei....

[Tigermoon]

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;