Items aus ListBox löschen!

[mo_greene]

Hallo,

ich würde gerne alle leeren Items aus meiner ListBox löschen, jedoch kann es sein, dass diese zu der Zeit, wo die Prozedur aufgerufen wird, total leer ist.
Folgendes habe ich mir überlegt:

Delphi-Quellcode:

  if ListBox.Count >= 1 then
  begin
    for i := 0 to ListBox.Count do
    begin
      if ListBox.Items.Strings[i] = '' then
      begin
        ListBox.Items.Delete(i);
      end;
    end;
  end;

Leider bekomme ich eine Meldung: Exception der Klasse EStringListError mit der Meldung 'Listenindex überschreitet das Maximum(16)'.

Woran kann das liegen?

Danke :)

[mkinzler]

Beim Löschen, immer von oben, da sonst die Grenze nie erreicht wird, da nach Löschen des ersten, der 2. den Index 0 bekommt. Oder immer den 1. Löschen.
In diesem Fall könntest du auch

Delphi-Quellcode:

ListBox1.Clear;

aufrufen.

[Fussball-Robby]

2 Sachen:
1. Die Schleife muss rückwärts laufen, also nicht for..to sondern for..downto.
Sagen wir mal, die ListBox hat 10 Einträge. Wird jetzt einer gelöscht, sind es nur noch 9, die Schleife läuft trotzdem bis 10 durch.
2. Muss es so heißen:

Delphi-Quellcode:

for i := 0 to ListBox.Count - 1 do

Da es bei 0 anfängt, ist das letzte Element Count - 1

Mfg

[Edit]

Zitat:

Zitat von mkinzler

In diesem Fall könntest du auch

Delphi-Quellcode:

ListBox1.Clear;

aufrufen.

Zitat:

Zitat von mo_greene

ich würde gerne alle leeren Items aus meiner ListBox löschen

[mo_greene]

Ich habe es jetzt so gemacht

Delphi-Quellcode:

  if ListBox.Count >= 1 then
  begin
    for i := ListBox.Count downto 0 do
    begin
      if ListBox.Items.Strings[i] = '' then
      begin
        ListBox.Items.Delete(i);
      end;
    end;
  end;

Leider bekomme ich immernoch die gleiche Fehlermeldung :gruebel:

[mkinzler]

Delphi-Quellcode:

for i := ListBox.Count-1 downto 0 do

[mo_greene]

Klasse, vielen Dank! :)

[marabu]

Hallo,

für den Eingangstest hast du gar keine Erklärung geliefert.

Delphi-Quellcode:

procedure DeleteItems(s: TStrings; const item: string = '');
var
  i: Integer;
begin
  s.BeginUpdate;
  try
    for i := Pred(s.Count) downto 0 do
      if s[i] = item then
        s.Delete(i);
  finally
    s.EndUpdate;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

[Muetze1]

Zitat:

Zitat von mo_greene

Klasse, vielen Dank! :)

Schalte zum programmieren die Bereichsprüfung in deinem Projekt an und du wärst vom Programm mit der Nase drauf gestossen worden...

[mo_greene]

Zitat:

Zitat von Muetze1

Schalte zum programmieren die Bereichsprüfung in deinem Projekt an und du wärst vom Programm mit der Nase drauf gestossen worden...

Wie schalte ich die ein?

[Muetze1]

Projekt -> Optionen -> Compiler -> Bereichsprüfung