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

markieren

Delphi-Quellcode:

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

Wieso klappt der Code nicht.

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.

Versuch' mal so:

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

markieren

Delphi-Quellcode:

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

Gruß
Thomas

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

ListBox1.Items[i].Delete;

ListBox1.DeleteSelected;

Zitat von Bjoerk:

Versuch' mal so:

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

markieren

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.

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

Zitat von Luckie:

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

markieren

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.

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!

markieren

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;

#5 geht auch für MultiSelected.