TJvSimpleXML - Löschen funktioniert nicht

[Yheeky]

Hi,

ich habe 11 Einträge in meiner TJvSimpleXML Komponente. Wenn ich nun über die folgende Funktion versuche, die Einträge zu löschen, bleiben immer 5 Einträge übrig. Wenn ich es nochmal probiere bleiben wiederum 2 übrig. Wieso werden nicht alle Einträge gelöscht?

Hier die Funktion:

Delphi-Quellcode:

var
  I: Integer;
begin
for I := 1 to JvSimpleXML1.Root.Items.Count - 1 do
JvSimpleXML1.Root.Items.Delete(I);

[shmia]

Du müsstest schon von 0 an beginnen; nicht mit 1.
Ausserdem muss man rückwärts löschen, denn durch das Löschen verschieben sich ja alle Indizies.

Delphi-Quellcode:

for I := JvSimpleXML1.Root.Items.Count - 1 downto 0 do 
   JvSimpleXML1.Root.Items.Delete(I);

[Yheeky]

Also das mit 1 passt schon, denn meine Einträge beginnen erst bei 1. Das Löschen in rückwärtiger Abfolge hatte ich aber nicht beachtet :wall: - daran lags :thumb:

Danke dir!