So, die ersten Problemchen stellen sich mir in den Weg und SuFu konnte mir nicht weiterhelfen.
Ich habe eine
XML-Datei erstellt und laut Christopher Harms Tutorial geladen.
Delphi-Quellcode:
procedure TForm1.Create(Sender: TObject);
begin
fAppPath:=ExtractFilePath(Application.ExeName);
xmlDoc:=CoDOMDocument40.Create;
xmlDoc.setProperty('
NewParser',true);
if not FileExists(fAppPath + DATABASE_FNAME)
then
begin
xmlDoc.LoadXml('
<?xml version="1.0"?><Filme></Filme>');
end
else
xmlDoc.Load(fAppPath + DATABASE_FNAME);
if xmlDoc.parseError.errorCode <> 0
then
begin
MessageDlg('
Die XML-Datei ist nicht korrekt!' + #13#10
+ '
Das Prog wird nun beendet!', mtError, [mbOk], 0);
Application.Terminate;
end;
if xmlDoc.documentElement.nodeName <> '
Filme'
then
Application.Terminate;
end;
Prob 1: Wenn ich die
XML-Datei lösche, meckert das Programm aber nicht. Auch wird keine neue
XML-Datei erstellt, wie es im Tut steht(Oder wird sie nur in den Speicher geladen und "noch"
nicht gespeichert?).
Prob 2: Eines der SubNodes soll später die Beschreibung beinhalten. Also suche ich nach einer
Möglichkeit in SubNode 1 einen String aus-/einzulesen und in SubNode 2 einen TString
aus/-einzulesen.
Hier noch der Inhalt der
XML-Datei:
Delphi-Quellcode:
<?
xml version="1.0" encoding="ISO-8859-1" ?>
<Filme>
<Film>
<Titel></Titel>
<Beschreibung></Beschreibung>
</Film>
<Film>
<Titel></Titel>
<Beschreibung></Beschreibung>
</Film>
</Filme>
P.s.
Ich verwende das für das Tut nötige MS
XML 4.0