Eintrag in einer Listbox löschen

[smart]

Ich möchte einen selectierten Eintrag in einer ListBox löschen. Ich benutze dafür diesen Code und bekomme aber immer eine Fehlermeldung. Warum?

ListBox1.Items.Delete(ListBox1.ItemIndex);

[xaromz]

Hallo,

klassische Frage: Welche Fehlermeldung?

Gruß
xaromz

[smart]

Fehlermeldung: Der Index der Liste überschreitet das Maximum (-1)

[Orbmu2k]

Warum nicht so ?

  Listbox1.DeleteSelected;

[Sharky]

Zitat von smart:

Fehlermeldung: Der Index der Liste überschreitet das Maximum (-1)

Wo löschst Du denn den Eintrag? In einer Schleife?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

Das geht beim mir ohne Probleme.

[smart]

@Orbmu2k, ganz einfach, weil ich dann die Fehlermeldung "unbekannter Bezeichner" bekomme.

@Sharky, nein, keine Schleife sondern "OnClick" bei einem Button.

[Phistev]

Überprüfst du auch, ob etwas markiert ist, und ob etwas in der Liste ist?

[Orbmu2k]

Zitat von smart:

@Orbmu2k, ganz einfach, weil ich dann die Fehlermeldung "unbekannter Bezeichner" bekomme.

Mhhh dann gabs das im D5 wohl noch nicht ... sorry

aber ItemIndex dürfte eigentlich nicht -1 sein wenn ein Eintrag wirklich markiert ist

[Sharky]

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ListBox1.ItemIndex <> -1) then
  begin
    ListBox1.Items.Delete(ListBox1.ItemIndex);
  end;
end;

Bist Du sicher das der Fehler beim löschen kommt und nicht an einer anderen Stelle?

[smart]

Kommt die gleiche Fehlermeldung. Ich bin da vor einiger Zeit schon einmal drüber gestolpert. Leider habe ich die Lösung vergessen.