Mehrere Listbox Einträge löschen

[ebber]

Hallo

ich habe jetzt dieses:

Delphi-Quellcode:

Listbox1.Items.Delete(Listbox1.ItemIndex);

Wie kann ich das bei Multiselect mit mehreren Einträgen machen ?

MfG

[uwewo]

ListBox1.SelCount liefert Dir die Anzahl der markierten Elemente.

Einfach eine Schleife programmieren

For i := 0 to ListBox1.SelCount-1 do

[Pfoto]

Hi!

ich würde es so machen:

Delphi-Quellcode:

var
  i: integer;
begin
  i:= 0;
  repeat
    If Listbox1.Selected[i] then
      Listbox1.Items.Delete(i) else
      inc(i);
  until (i = Listbox1.items.count);

Gruß
Pfoto

[Matze]

Die Codevervollständigung hilft häufig weiter

ListBox1.DeleteSelected;

[mkinzler]

@Pfoto: Beim Löschen, von oben anfangen!

[uwewo]

Zitat von Pfoto:

Hi!

ich würde es so machen:

Delphi-Quellcode:

var
  i: integer;
begin
  i:= 0;
  repeat
    If Listbox1.Selected[i] then
      Listbox1.Items.Delete(i) else
      inc(i);
  until (i = Listbox1.items.count);

Gruß
Pfoto

So würde es auch gehen, allerding möchte er ja nicht alle löschen

until (i = Listbox1.SelCount-1

[IngoD7]

Zitat von uwewo:

Zitat von Pfoto:

Hi!

ich würde es so machen:

Delphi-Quellcode:

var
  i: integer;
begin
  i:= 0;
  repeat
    If Listbox1.Selected[i] then
      Listbox1.Items.Delete(i) else
      inc(i);
  until (i = Listbox1.items.count);

Gruß
Pfoto

So würde es auch gehen, allerding möchte er ja nicht alle löschen

until (i = Listbox1.SelCount-1

@uwewo
Du bist auf dem falschen Dampfer. Sieh doch mal in der Hilfe nach, was TListBox.Selected[] genau ist.

Abgesehen davon müsste die until-Anweisung wie folgt lauten, um nicht auf die Nase zu fallen, wenn der letzte Listeneintrag auch markiert war:until i >= Listbox1.Count; Abgesehen davon sollte man - wie hier schon erwähnt wurde - von oben löschen, also mit dem höchsten Index anfangen und runterzählen. Dann verhindert man zuverlässig die Möglichkeit, dass man sich "den Boden unter den Füßen weglöscht".

Abgesehen davon gibt es - wie hier auch schon erwähnt wurde - ein TListBox.DeleteSelected.

Abgesehen davon .. ach nö, das reicht nun.

[uwewo]

@Ingo, natürlich hast Du Recht, hätte mir eigentlich auffallen müssen

Delphi-Quellcode:

var i: integer;
begin
  i := Listbox1.Items.Count-1;
   repeat
    If Listbox1.Selected[i] then
      Listbox1.Items.Delete(i);
      dec(i);
  until (i < 0);

Vielleicht können wir uns darauf einigen

[Edit]
TListBox.DeleteSelected gibt es nicht in allen Delphi Versionen.
[/Edit]

[Khabarakh]

Was habt ihr denn gegen den armen Pfoto, sein Code ist vollkommen richtig - den einzigen kleinen Fehler habt ihr aber übersehen: EListError bei leeren Items.

Noch weniger zu sagen gibts natürlich gegen Matzes Methode .

[ebber]

Danke für eure Bemühungen.

Da

TListBox.DeleteSelected; bei mir geht denke ich mal es ist das einfachste.

MfG