Hallo,
ich habe ein Programm mit
XML & SaveDialog. Ich arbeite das erste Mal mit
XML in Delphi und habe auch mit Delphi weniger Erfahrung, vielleicht ist es also auch ein ganz einfacher, dummer Fehler von mir.
Ich habe zwei Edit-Felder (2 Strings, dabei soll ein String ein Dateipfad sein), deren Inhalt ich in eine
XML-Datei integriere, also etwas wie Hinzufügen. Das geht bei den normalen Eingaben auch ohne Probleme.
Da nun der eine String ein Pfad sein soll, habe ich zusätzlich einen Button erstellt, über den man ein SaveDialog aufrufen kann (Datei wird später eh erst erstellt / überschrieben, daher SaveDialog).
Jedenfalls wird nichts mehr an die
XML-Datei angehängt, sobald ich den SaveDialog benutzt habe.
Sobald ich seinen Aufruf wieder auskommentiere, geht wieder alles. Warum?
Hier zwei Code-Auszüge:
Aufruf des Dialogs
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
//Dateiname
Edit1.Text := SaveDialog1.FileName;
end;
ShowMessage(SaveDialog1.FileName); //ist der korrekte Pfad
end;
Speicherung der XML-Daten in Datei
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
playlist: IXMLNode;
value : IXMLElement;
begin
playlist := XMLDoc.createElement('playlist');
value := XMLDoc.createElement('name');
value.text := Edit1.Text;
playlist.appendChild(value);
value := XMLDoc.createElement('path');
value.text := Edit2.Text;
playlist.appendChild(value);
XMLDoc.DocumentElement.appendChild(playlist);
XMLDoc.save('bla.xml');
end;