Mein Code scheint in manchen Fällen noch nicht ganz zu funktionieren.
Ich muss den Vorgang mehrmals starten, damit alle Einträge gelöscht werden.
Denke aber es liegt an der Abfrage:
For y := 0 to filelist.Count Do
Ich hab mir mal deinen Code angeguckt und versucht einzubauen, funktioniert leider nicht.
Habs versucht aber ich blicke nur halbwegs durch und kann leider nicht sagen was genau nicht funktioniert.
(Wie gesagt ich bin froh dass ich die Delphi Grundfunktionen beherrsche, aber von
XML hab ich halt garkeine Ahnung)
Denke aber es liegt an der Vergleichs Funktion. Es kommt nämlich keine Fehlermeldung, aber an der Filelist wird halt nichts verändert nach Ablauf der Prozedur. (Dauer ca. 1-2 Sekunden)
Hast du vllt noch eine Idee?
Kann es daran liegen das manchmal die "Directorys" ineinadner verschaltet sind?
Code:
<Directory Name="Blume">
<Directory Name="Blume2">
<Directory Name="Blume3">
<xxxxxxxxxxxxxxxxxxxxx>
<xxxxxxxxxxxxxxxxxxxxx>
<xxxxxxxxxxxxxxxxxxxxx>
</Directory>
</Directory>
</Directory>
[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]