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]

Delphi-Quellcode:

ListBox1.SelCount

liefert Dir die Anzahl der markierten Elemente.

Einfach eine Schleife programmieren

Delphi-Quellcode:

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 ;)

Delphi-Quellcode:

ListBox1.DeleteSelected;

[mkinzler]

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

[uwewo]

Zitat:

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

Delphi-Quellcode:

until (i = Listbox1.SelCount-1

[IngoD7]

Zitat:

Zitat von uwewo

Zitat:

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

Delphi-Quellcode:

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:

Delphi-Quellcode:

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. :wink:

[uwewo]

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

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 :lol:

[Edit]

Delphi-Quellcode:

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. :thumb:

Da

Delphi-Quellcode:

TListBox.DeleteSelected;

bei mir geht denke ich mal es ist das einfachste.

MfG