habe keine ahnung was du mit
dom meinst
Also ich verwende das folgender masen
Memofelder in Datei speichern
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>'+AnsiToUtf8(Hauptmenu.montag_text.Text)+'
</MONTAG>'+slinebreak
+'
<DIENSTAG>'+AnsiToUtf8(Hauptmenu.dienstag_text.Text)+'
</DIENSTAG>'+slinebreak
+'
<MITTWOCH>'+AnsiToUtf8(Hauptmenu.mittwoch_text.Text)+'
</MITTWOCH>'+slinebreak
+'
<DONNERSTAG>'+AnsiToUtf8(Hauptmenu.donnerstag_text.Text)+'
</DONNERSTAG>'+slinebreak
+'
<FREITAG>'+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);
Ausgabe der Datei
Delphi-Quellcode:
if(FileExists(dateiname_laden))
then begin
XML_File := newXMLDocument;
XML_File.LoadFromFile(dateiname_laden);
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;
if not(FileExists(dateiname_laden))
then begin
Hauptmenu.montag_text.Text := '';
Hauptmenu.dienstag_text.Text := '';
Hauptmenu.mittwoch_text.Text := '';
Hauptmenu.donnerstag_text.Text := '';
Hauptmenu.freitag_text.Text := '';
end