ListBox Delete Item

[ecHo89]

Hallo, ganz komische Sache...

ganze einfache Listbox mit 3 Elemente und will alle die Selected sind rauslöschen.
Die Prozedur funktioniert auch, aber ich bekomme immer (auch außerhalb der IDE) die Errormeldung: "Listenindex überschreitet das Maximum 2" (EListError)

Delphi-Quellcode:

var i:integer;
begin
  for i:=1 to 3 do
  begin
   if Listbox1.Selected[i-1] = true then ListBox1.Items.Delete(i-1);
  end;
end;

Gruß

[roga]

ListBox.DeleteSelected;

roga

[mkinzler]

Und wenn schon in einer Schleife diese umgekehrt laufen lassen

[Sharky]

Zitat von mkinzler:

Und wenn schon in einer Schleife diese umgekehrt laufen lassen

Und als kurze Erklärung:

Deine Schleife wird dreimal durchlaufen (1 bis 3) und dabei löschst Du jeweils den Eintrag mit dem Index aktuelle Zahl-1.
Wenn nun z. B. der erste Eintrag selektiert ist wird dieser gelöscht. Nun hat deine ListBox nur noch zwei Einträge. Beim dritten Durchlauf deiner Schleife wird aber versucht auf einen, nicht mehr vorhandenen, Eintrag zu zugreifen. Und dann knallt es natürlich.

Wenn Du die Schleife rückwärst laufen lässt kann Dir das nicht passieren.

[ecHo89]

ja danke für eure Posts.
Gestern Nacht wars einfach zu lang und mein Kopf blockiert