Zitat von
computer-glossar.de:
Delphi-Quellcode:
XMLDocument.NodeIndentStr := '
<2 Leerzeichen>';
// ist für das Auslesen unrelevant, benötigts du doch erst beim Erstellen
XMLDocument.FileName := XMLFilename;
if (
not(FileExists(XMLFilename)))
or {OK}
(XMLDocument.IsEmptyDoc)
then { IsEmptyDoc kann man doch erst nach einem LoadFromFile oder derartiges aufrufen?!}
begin
XMLDocument.LoadFromXML('
<?xml version="1.0"?><'+cXMLRootNodeName+'
></'+cXMLRootNodeName+'
>');
XMLDocument.SaveToFile;
end;
ok NodeIndentStr ist jetzt nur noch beim speichern drinnen
IsEmptyDoc ist auch weg
dein code:
Delphi-Quellcode:
try
XMLDocument.Active := true;
except
ShowMessage('
XML Fehler: Die Datei "'+XMLFilename+'
" ist fehlerhaft.');
Result := false;
exit;
end;
//Des sind die verschiedenen Möglichkeiten die ich getestet hab
1. Möglichkeit
2. Möglichkeit
3. Möglichkeit
Weil wenn bei dir da was fehlschlägt,
dann macht er ja trotzdem weiter mit deinen Möglichkeiten.[/quote]
nein
ich hab nur vergessen nach dem ersten except block ein exit aufzurufen (weil ich des früher anderes gemacht hab)
Aber des Problem das er einfach stecken bleibt ist immer noch da
