Access violation beim Löschen von Listview-Einträgen

[Der.Kaktus]

Hallo,

probiers mal so...

Delphi-Quellcode:

procedure TForm4.DLT_BTNClick(Sender: TObject); 
var 
I,L,CNT:Integer; 
begin 
 if Not( ListView.ItemIndex = -1 ) then 
 for I := 0 to ListView.Items.Count - 1 do 
// Try mal weggelassen
  if ListView.Items[I].Selected then ListView.Items[i].Delete 
end;

Gruss

[mkinzler]

Delphi-Quellcode:

for I := ListView.Items.Count - 1 downto o do
    if ListView.Items[I].Selected then if ListView.Items[I].Delete;

[dazar_t]

Danke so habe ich es schon ausprobiert aber dies funktioniert nicht da die funktion ja irgendwann Einträge überprüft (i) die garnicht existieren da man ja immer welche löscht

EDIT: Danke mkinzler das funktioniert.

[mkinzler]

Zitat von dazar_t:

Danke so habe ich es schon ausprobiert aber dies funktioniert nicht da die funktion ja irgendwann Einträge überprüft (i) die garnicht existieren da man ja immer welche löscht

Deshalb ja auch die umgekehrte Schleife

[bluesbear]

Nenee, mit ner for Schleife geht das nicht, weil sich der Count doch ändert, wenn man was löscht.

[mkinzler]

Zitat von bluesbear:

Nenee, mit ner for Schleife geht das nicht, weil sich der Count doch ändert, wenn man was löscht.

Die Grenzen einer laufenden Schleife werden aber nicht angetastet

[Union]

Wie wär's mit diesem Versuch

Delphi-Quellcode:

i := 0;
while i < ListView.Items.Count-1 do
begin
  if ListView.Items[i].Selected then 
    ListView.Items[i].Delete
  else
     inc(i);
end;

[mkinzler]

Der Code von oben geht doch

[Union]

Zitat von mkinzler:

Der Code von oben geht doch

Streng genommen nicht wenn man downto o schreibt

[bluesbear]

@mkinzler:
Naja eben. Ich mache das sowas mit "while EintragSelektiert do LöscheDen". Auf eine absteigende for schleife war ich noch nicht gekommen. Gefällt mir ehrlich gesagt auch weniger, aber das ist reine Geschmackssache.
Da warst du auch schneller http://www.delphipraxis.net/internal...=852551#852551 - ich gebs auf für heute mit dem Quiz