Ein Eintrag aus einer Listbox entfernen

[smart]

Hallo
ich wollte einen Eintrag aus einer ListBox entfernen. bekomme aber immer die Fehlermeldung: maximaler Index.....

Delphi-Quellcode:

 if ListBox1.Selected[i] = True then
       ListBox1.Items.Delete(i);

Wieso klappt der Code nicht.

[Luckie]

Liegt er in einer Schleife und läuft die Schleife vorwärts? Also das sagt mir jetzt so meine Glaskugel. Lass die Schleife mal rückwärts laufen, dann sollte es gehen.

[Bjoerk]

Versuch' mal so:

Prüfung auf true ist nicht schön und eventl. den Index überprüfen

Delphi-Quellcode:

  if I > -1 then
    if I < ListBox1.Items.Count then
      if ListBox1.Selected[I] then
        ListBox1.Items.Delete(I);

Gruß
Thomas

[madtom]

Ich habe meinen Delphi Rechner gerade nicht an, aber mal ins Blaue Geräten:

ListBox1.Items[i].Delete;

[Bjoerk]

ListBox1.DeleteSelected;

[smart]

Zitat:

Zitat von Bjoerk (Beitrag 1168656)

Versuch' mal so:

Prüfung auf true ist nicht schön und eventl. den Index überprüfen

Delphi-Quellcode:

  if I > -1 then
    if I < ListBox1.Items.Count then
      if ListBox1.Selected[I] then
        ListBox1.Items.Delete(I);

Gruß
Thomas

OK die Fehlermeldung ist weg, aber jetzt wird auch nichts mehr gelöscht.

[Luckie]

Zeig doch mal etwas mehr Code. So könne wir nur raten, was du da machst.

[smart]

Zitat:

Zitat von Luckie (Beitrag 1168665)

Zeig doch mal etwas mehr Code. So könne wir nur raten, was du da machst.

Delphi-Quellcode:

procedure TForm12.RbButton4Click(Sender: TObject);
var
  i: Integer;
 begin
  if I > -1 then
     if I < ListBox1.Items.Count then
       if ListBox1.Selected[I] then
         ListBox1.Items.Delete(I);
 end;

mehr Code habe ich nicht.

[BUG]

Zitat:

Zitat von smart (Beitrag 1168664)

OK die Fehlermeldung ist weg, aber jetzt wird auch nichts mehr gelöscht.

Das würde bedeuten, das dein Index nicht in den richtigen Grenzen liegt.

Kein Wunder:

Delphi-Quellcode:

I

wird nie initialisiert, kann also jeden beliebigen Wert haben.
Welchen Eintrag willst du denn löschen?

Zitat:

Zitat von Bjoerk (Beitrag 1168656)

und eventl. den Index überprüfen

Dann aber lieber mit Exception oder zumindest Assert.
Sonst passiert genau das, was eben passiert ist: Nichts geht mehr und keiner weiß warum.

EDIT: Glaskugel an!

Delphi-Quellcode:

procedure TForm12.RbButton4Click(Sender: TObject);
var
  i: Integer;
 begin
  for i := ListBox1.Items.Count - 1 downto 0 do
       if ListBox1.Selected[i] then
         ListBox1.Items.Delete(i);
 end;

[Bjoerk]

#5 geht auch für MultiSelected. :?