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 von 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

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 von Luckie:

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 von smart:

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: I wird nie initialisiert, kann also jeden beliebigen Wert haben.
Welchen Eintrag willst du denn löschen?

Zitat von Bjoerk:

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.