FMX Listview Einträge durchgehen

[jacky213]

Ich versuche alle Listview Einträge durchzugehen und einen Eintrag zu Löschen sofern ein Element im Item sichtbar ist. Das funktioniert mit folgendem Code auch, allerdings bleiben beim ersten durchgang noch einige Items die gelöscht werden sollten in der Listview vorhanden. Sie verschwinden erst nach dem zweiten oder dritten durchgang.

Delphi-Quellcode:

   for Item in LVEinkauf.Items do
       if Item.Objects.FindObjectT<TListItemImage>('LineImage').Visible = true
       then LVEinkauf.Items.Delete(Item.Index);

woran kann es liegen und wie bekomme ich das ganze ohne Repeat hin?

Danke

[Incocnito]

Hi Jacky,

vielleicht macht Delphi intern davon

Delphi-Quellcode:

for iPos := 0 to (LVEinkauf.Items.Count - 1) do
Begin
  Item := LVEinkauf.Items[iPos];
  if Item.Objects.FindObjectT<TListItemImage>('LineImage').Visible{ = true} then
  Begin
    LVEinkauf.Items.Delete(Item.Index); 
  End;
End;

Dann würde er beispielsweise den 3 löschen, alle würden aufrücken (der 4te wird der 3te usw.)
und im nächsten Durchlauf würde er den 5ten nehmen, da dieser an der Position ist
wo zuvor der 4te war und somit den 4ten, der auf die gelöschte 3te Position gerutscht ist,
nicht mehr prüfen.
Wundert mich aber, dass Delphi so läuft.
Notfalls probier es von Hand, indem du die Schleife umdrehst:

Delphi-Quellcode:

for iPos := (LVEinkauf.Items.Count - 1) downto 0 do
Begin
  Item := LVEinkauf.Items[iPos];
  if (Item.Objects.FindObjectT<TListItemImage>('LineImage').Visible) then
  Begin
    LVEinkauf.Items.Delete(Item.Index); 
  End;
End;

Das "if X = True then" kannst du dir übrigens sparen und direkt "if X then" schreiben.
Ist aber natürlich (wie so oft) Geschmackssache.

Liebe Grüße
Incocnito

[Schokohase]

Zitat von Incocnito:

Wundert mich aber, dass Delphi so läuft.

Wie sollte er/es denn sonst laufen?

Der Iterator geht vom ersten bis zum letzten Element durch die Liste.

Code:

a,b,c,d
^

Wenn der Iterator beim ersten Element ist, man dieses löscht, dann rutscht das eben noch zweite Element vor auf den Platz des ersten Elements.

Code:

b,c,d
^

Jetzt fordert man vom Iterator das nächste Element an

Code:

b,c,d
  ^

und landet beim anfänglich dritten Element.

In .net wirft der Iterator eine Exception wenn sich die zugrunde liegende Collection verändert hat. Das ist eine sehr praktische Sache.

Und ja, das Rückwärtslaufen über den Index ist hier das Mittel der Wahl.

[jacky213]

Das mit dem Downto loop hatte ich auch versucht, bekomme allerdings eine Zugriffsverletzung

[Schokohase]

Zitat von jacky213:

Das mit dem Downto loop hatte ich auch versucht, bekomme allerdings eine Zugriffsverletzung

Oh, das ist aber nicht schön.

Wenn du den Code zeigen würdest, wäre auch mehr als nur ein „Oh“ drin.

[jacky213]

Manch Einer sieht den Wald vor lauter Bäumen nicht mehr....

for I := (LVEinkauf.Items.Count - 1) downto 0 do Hatte vergessen die Listview einzuklammern

Vielen dank für die Hilfe