Listenindex überschreitet das Maximum (9).

[dizzy]

Zitat:

Zitat von Stevie

Und warum bitte????

Zitat:

Zitat von dizzy

\\edit: Ach jo, du willst ja selektiv löschen

... isch hatte mich vertan - sorry :roll:

[Stevie]

Zitat:

Zitat von dizzy

... isch hatte mich vertan - sorry :roll:

Na gut!!! :mrgreen:

Delphi-Quellcode:

i := 0; 
while i <  ListBox1.Items.Count do 
  if ListBox1.Items[i] = schueler.Text then 
    ListBox1.Items.Delete(i) 
  else 
    Inc(i);

:warn: dürfte übrigens für große Texte schneller sein, als

Delphi-Quellcode:

with ListBox1.Items do
  Delete(IndexOf(schuler.text));

weil, IndexOf immer wieder vom Anfang an durchsucht.
Aber das nur so nebenbei... :roteyes:

[Muetze1]

Moin!

Warum das andere mit der While Schleife auch Murks ist? Ganz einfach:

For und While Schleifen holen sich vor dem Eintritt in die Schleife die Werte für die Bedingung nur einmalig und aktualisieren sie nicht mehr beim Durchlauf. Daher kommt es zu dem Fehler. Wenn man Glück hat, tritt dies bei einer While Schleife nicht auf, weil die Optimierung des Compilers dort was anderes draus macht - dem kann man sich aber nie sicher sein.

Man kann übrigens zu den hier geposteten While Schleifen auch alternativ eine For Schleife nehmen, nur man muss sie rückwärts durchlaufen:

Delphi-Quellcode:

  For  i := ListBox1.Items.Count-1 DownTo 0 Do
    If ( ... ) Then
      ListBox1.Items.Delete(i);

MfG
Muetze1

[Stevie]

So, und damit die Liste der (an der Frage völlig vorbei) Schleifen voll ist: :mrgreen:

Delphi-Quellcode:

repeat 
  ListBox1.Items.Delete(0); 
until ListBox1.Items.Count = 0;