Ein Eintrag aus einer Listbox entfernen

[Popov]

Wenn du einen bestimmten Item löschen willst, dann

Delphi-Quellcode:

var
  i: Integer;
begin
  i := 2; //Beispiel für das dritte Item
  if I > -1 then
     if I < ListBox1.Items.Count then
       ListBox1.Items.Delete(I);
end;

Wenn du einen ausgewählten Item löschen willst

Delphi-Quellcode:

  if ListBox1.ItemIndex > -1 then
    ListBox1.Items.Delete(ListBox1.ItemIndex);

Solltest du mit Multiselect mehrere Items löschen willst, denn

Delphi-Quellcode:

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

Achte aber dabei IMMER, dass du runterzählst, sonst kommt der maximaler Index Fehler. Grund, wenn der erst und letzte Item gewählt sind und du den ersten Item löscht, ändert sich die Position des letzten Items. Wenn du runterzählst ist es egal.