Danke für die schnelle Hilfe, funktioniert (war jetzt nur wegen Netzwerkproblem 2 h abgehängt)
Die Exceptions sollen natürlich nicht unbehandelt bleiben, nur zwecks Übersichtlichkeit nicht gepostet.
Pfad zur Datei - besser so? Die Datei soll eh immer im gleichen Verzeichnis stehen wie das Programm.
Delphi-Quellcode:
function GetIniDaten(
const Filename:
String):boolean;
var XmlDat : TXMLDocument;
Nodelist, subnodelist : IXMLNodelist;
f :
string;
begin
// laden der abgespeicherten XML-Konfiguration
try
result := true;
f := ExtractFilePath(ParamStr(0)) + filename;
if not fileexists(f)
then
begin
result := false;
exit;
end;
Tatsächlich hat xmldat.free auch noch eine
Exception verursacht.